Superloopy Logo

Not so philosophically different after all?

I found Chris Done's A philosophical difference between Haskell and Lisp via its' thread and my response ended up blog-post length so I decided to reproduce it here.

Chris opens with:

One difference in philosophy of Lisp (e.g. Common Lisp, Emacs Lisp) and Haskell is that the latter makes liberal use of many tiny functions that do one single task. This is known as composability, or the UNIX philosophy. In Lisp a procedure tends to accept many options which configure its behaviour. This is known as monolithism, or to make procedures like a kitchen-sink, or a Swiss-army knife.

Now, I don't know Common Lisp, and not much Emacs Lisp, but his first example does not hold for Clojure. I don't recognise it at all. For example, a straight-forward beginner's implementation of this function:

take all elements from the list–except the first three–that satisfy predicate p, and take only the first five of those

Would probably look like this:

(defn f [p coll]
  (take 5 (filter p (drop 3 coll))))

However, this would probably be more idiomatic to rewrite it using the ->> macro. This has the benefit that the wording in the spec matches the code better:

(defn f'[p coll]
  (->> coll
       (drop 3)
       (filter p)
       (take 5)))

I'm not sure what's going on with the second problem:

get all elements greater than 5, then just the even ones of that set.

It looks to me like neither his lisp nor his Haskell solution works, as they both get only the even numbers below 5. So, I'll show my solution to both the stated problem and my implementation of his examples in Clojure. The stated problem first:

(filter even? (iterate inc 5))

Rewritten with ->>:

(->> (iterate inc 5)
     (filter even?))

The problem that his code examples solve I would do like this:

[2 4]

Ok, that was cheeky, so let's show it with code too:

(filter even? (range 5))

or, if 0 is not desired:

(filter even? (range 1 5))

Range has a step option too, but I'd hardly call it a kitchen sink function:

user> (doc range)
([] [end] [start end] [start end step])
  Returns a lazy seq of nums from start (inclusive) to end
  (exclusive), by step, where start defaults to 0, step to 1, and end to
  infinity. When step is equal to 0, returns an infinite sequence of
  start. When start is equal to end, returns empty list.
;; => nil

So we could solve this like this too:

(range 2 5 2)

Alternatively, if you really want to use 2 functions, we could also emulate his Haskell solution:

(take-while even? (range 1 5))

As others in the Lobsters thread commented, Scheme also favours small composable functions. Perhaps all this shows is the problem of trying to divine a philosophical difference between a single language and family of languages twice its age with over 25 dialects listed on Wikipedia.

Date: 2015-12-23

Author: Stig Brautaset

Created: 2017-06-16 Fri 22:58