Schemeについて語るスレ

1-

1ななしのよっしん :2014/10/16(木) 03:06:05 ID: xn2n7jFiOS
;;ちょっと括弧わるいけれど...

(define (mk-list min max)
(if (> min max)
(list)
(cons min (mk-list (+ min 1) max))))

(map
(lambda (num) (cond [(= (mod num 15) 0) 'fizzbuzz]
[(= (mod num 3) 0) 'fizz]
[(= (mod num 5) 0) 'buzz]
[else num]))
(mk-list 1 100))

1-
#


[0]TOP
ニコニコ動画モバイル
運営元:ドワンゴ