おとといの anagram は、できるだけ奇妙な reverse を考えているときに気がついた。

(define (my-reverse ls)
  (append (if (null? (cddr ls))
              (cdr ls)
              (my-reverse (cdr ls)))
          (list (car ls))))

むかしむかし reverse に悩んでいたのは、もう2年も前なのか。