2010-09-21から1日間の記事一覧

schemeで全dataを+するのを知りたいです、か?

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1347295398とりあえず仕様を満たすものをガガッと力任せに書いてみた。 (define (mysum lst) (define (iter lst) (if (null? lst) 0 (let ((head (car lst)) (tail (cdr lst))) (+ (iter tail) (i…