flattenの定義2
こっちのほうがシンプルでいいような気もする。
(define (flatten lis) (cond [(null? lis) '()] [(not (list? lis)) (list lis)] [else (append (flatten (car lis)) (flatten (cdr lis)))]))
早く継続を勉強して、継続で書いてみたい。
こっちのほうがシンプルでいいような気もする。
(define (flatten lis) (cond [(null? lis) '()] [(not (list? lis)) (list lis)] [else (append (flatten (car lis)) (flatten (cdr lis)))]))
早く継続を勉強して、継続で書いてみたい。