2007/03/14

おとといの anagram は、できるだけ奇妙な reverse を考えているときに気がついた。
(define (my-reverse ls)
(append (if (null? (cddr ls))
(cdr ls)
(my-reverse (cdr ls)))
(list (car ls))))

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

0 件のコメント: