05/06/22 16:59:02
schemeを始めたんですけどリストを逆順にする関数がわかりません。
(define (reverse lst)
(if (null? lst)
'()
(cons (reverse (cdr lst)) (car lst))))
こうやるとペアになってしまいます。
(reverse '(1 2 3))
((3 2) . 1)
(3 2 1)となるやつをおしえてください。
05/06/22 16:59:02
schemeを始めたんですけどリストを逆順にする関数がわかりません。
(define (reverse lst)
(if (null? lst)
'()
(cons (reverse (cdr lst)) (car lst))))
こうやるとペアになってしまいます。
(reverse '(1 2 3))
((3 2) . 1)
(3 2 1)となるやつをおしえてください。