LISP Scheme Part7
■ このスレッドは過去ログ倉庫に格納されています
0573(define (´∀｀) 'ﾏﾀｰﾘ)
NGNG(define (hoge f a)
(let loop ((a a) (level 1) (max 1))
(cond ((null? a) max)
((pair? (car a)) (loop (cdr a) level (loop (car a) (+ level 1) (if (> (+ level 1) max) (+ level 1) max))))
(else (f (car a) level max) (loop (cdr a) level max)))))
■ このスレッドは過去ログ倉庫に格納されています