- 241 名前：はちみつ餃子 ◆8X2XSCHEME mailto:sage [2012/03/09(金) 15:50:15.41 ]
- >>235
>>237
こんな感じかな。
(define (power-display lst)
(let loop ((acc '()) (next lst))
(cond ((null? next)
(for-each display (reverse acc))
(newline))
((list? (car next))
(for-each (lambda(x) (loop (cons x acc) (cdr next))) (car next)))
(else (loop (cons (car next) acc) (cdr next))))))
(power-display
(list "*" '(2 3 4) '(a b) "!" '(8 9 0)))
