パスワードを忘れた? アカウント作成
507429 journal

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))
この議論は賞味期限が切れたので、アーカイブ化されています。 新たにコメントを付けることはできません。
typodupeerror

日本発のオープンソースソフトウェアは42件 -- ある官僚

読み込み中...