Serendip

Web Studio

(define (deep-reverse items)
  (cond ((not (pair? items)) items)
         (else
           (reverse (map deep-reverse items)))))

(define x (list (list 1 2) (list 3 4)))
; ((1 2) (3 4))
(define y (list (list (list 1 2) (list 3 4)) (list 5 6)))
; (((1 2) (3 4)) (5 6))
(deep-reverse x)
gosh> ((4 3) (2 1))
(deep-reverse y)
gosh> ((6 5) ((4 3) (2 1)))

計算機プログラムの構造と解釈

posted with amazlet at 08.11.07

ジェラルド・ジェイ サスマン ジュリー サスマン ハロルド エイブルソン
ピアソンエデュケーション
売り上げランキング: 6542

Amazon.co.jp で詳細を見る