理系学生日記

おまえはいつまで学生気分なのか

問題2-18

逆順リストを作成する。これも学部の頃standard MLの課題であったような。

(define (reverse l)
  (define (sub-reverse list stack)
    (if (null? list) stack
	(sub-reverse (cdr list) (cons (car list) stack))))
  (sub-reverse l ()))

てすてす。

gosh> (reverse (list 1 2 3 4 5 6))
(6 5 4 3 2 1)