Comment detail

変形Fizz-Buzz問題 (Nested Flatten)
循環リストで。
1
2
3
4
5
6
7
use srfi-1)
(define (fizzbuzz n)
  (for-each (lambda (a b) (print a ":" b))
            (iota n 1)
            (circular-list 'hoge 'hoge 'Fizz 'hoge 'Buzz 'Fizz 'hoge 'hoge 'Fizz 'Buzz 'hoge 'Fizz 'hoge 'hoge 'FizzBuzz)))

(fizzbuzz 20)

Index

Feed

Other

Link

Pathtraq

loading...