Gauche の勉強メモ

;; flatten を letrec で書きなおしてみた
(define (flatten x)
 (letrec ((rec (lambda (a acc)
               (cond ((null? a) acc)
                ((atom? a) (cons a acc))
                (else (rec (car a) (rec (cdr a) acc)))))))
  (rec x '())))

#Gauche #Scheme #Lisp #OnLisp

SN 2013/07/01 14:17:41

Archives > 20130701_Gauche_study_memo.html