Re: How to improve the readability of (any) LISP or any highlevel functional language to the level of FORTH ?

[w_a_x_man]

On Jan 1, 5:56 pm, The Quiet Center <thequietcen...@gmail.com> wrote:

> How would you code this simple list compression problem in Ruby:
>
> 1.08 (**) Eliminate consecutive duplicates of list elements.
>     If a list contains repeated elements they should be replaced with
> a single copy of the element. The order of the elements should not be
> changed.
>
>     Example:
>     ?- compress([a,a,a,a,b,c,c,a,a,d,e,e,e,e],X).
>     X = [a,b,c,a,d,e]



(defun compress (stuff)
  (mapcon #'(lambda (x)
              (if (and (> (length x) 1) (eql (car x) (cadr x)))
                nil
                (list (car x))))
          stuff))