макры рулят

Guy Lapalme.  Implementation of a "Lisp comprehension" macro.

Вот что делают!

(defun perms (x)
    (if (null x) ’(())
        [(cons a p) (a <- x) (p <- (perms (remove a x :count 1)))]))

via lispnik

времени, как всегда, не хватает

Всё хочу сделать задачку от thesz, да руки не доходят.
Надо надо сделать. На форте! :-) Уф, если уж и буду делать, то на Хаскеле (пусть будет еще одно решение). Ну еще вот попробую ее, когда наконец руки до языка J дойдут.