2008/12/30

【scheme】こないだのlistで書き忘れた

リストの中身を全部出力したかっただけなんだけどな。こんなことになっちゃった。センスなさすぎワロタ系?

;;list
(define x (list 1 2 3))

;;display list
(define disp-list
  (lambda (l)
    (if (not (null? l))
      (begin
        (display (car l)) 
        (newline)
        (disp-list (cdr l))))))

(disp-list x)
;;=> 1
;;=> 2
;;=> 3

0 件のコメント:

コメントを投稿