t-nissieの日記: Schemeb自習帳004 SICP 問題2.18
日記 by
t-nissie
;SICP 問題2.18
;「引数としてリストを取り、同じ要素の逆順のリストをかえす手続きreverseを定義せよ」
; 自分の答
(define (my-reverse lst)
(define (loop rvs lst)
(if (null? lst)
rvs
(loop (cons (car lst) rvs) (cdr lst))))
(loop '() lst))
(my-reverse '(1 2 3 4))
;srfi-1に答えが書いてあって:
(use srfi-1)
(define (reverse list) (fold cons '() list))
;「引数としてリストを取り、同じ要素の逆順のリストをかえす手続きreverseを定義せよ」
; 自分の答
(define (my-reverse lst)
(define (loop rvs lst)
(if (null? lst)
rvs
(loop (cons (car lst) rvs) (cdr lst))))
(loop '() lst))
(my-reverse '(1 2 3 4))
;srfi-1に答えが書いてあって:
(use srfi-1)
(define (reverse list) (fold cons '() list))
Schemeb自習帳004 SICP 問題2.18 More ログイン