*ループ1 [#i29c71f8] (for-each print (map (lambda (_) "Hello World!") (iota 5))) *FizzBuzz [#l501edf8] (print (string-join (map (lambda (x) (cond ((= (modulo x 15) 0) "FizzBuzz") ((= (modulo x 5) 0) "Buzz") ((= (modulo x 3) 0) "Fizz") (else (format #f "~d" x)))) (iota 100 1)))) *うるう年判定 [#l746f1d2] (define (leap-year? n) (cond ((zero? (modulo n 400)) #t) ((zero? (modulo n 100)) #f) ((zero? (modulo n 4)) #t) (else #f))) (define (foo n) (if (leap-year? n) (print (format #f "~d年はうるう年です。" n)) (print (format #f "~d年はうるう年ではありません。" n)))) (foo 1992) (foo 2000) (foo 2001) *累乗1 [#ybfcac36] (define pow (lambda (a n) (if (= n 0) 1 (* a (pow a (- n 1)))))) (print (pow 2 10)) *フィボナッチ数列1 [#l1f0f136] (define fib (lambda (n) (if (< n 2) 1 (+ (fib (- n 1)) (fib (- n 2)))))) (for-each print (map (lambda (n) (fib n)) (iota 10)))