CommonLisp Scheme Part11 - 暇つぶし2ch

CommonLisp Scheme Part11 at TECH

628:(define (´∀｀) 'ﾏﾀｰﾘ)
04/10/05 16:52:09
(define (foo l)
　(define (f x) (string-append (car l) "/" x))
　(define (g x)
　　(if (list? x) (foo (cons (f (car x)) (cdr x)))
　　　　(list (f x))))
　(cons (f "") (apply append (map g (cdr l)))))

>>625
全角スペースを取ればSCMで動いたよ。
622は失敗作。

次ページ

続きを表示

1を表示