2007-05-13から1日間の記事一覧
巷で「Fizz-Buzz問題」が流行っているみたいなので、私も解いてみました。 ただし、3分以上かかってしまいましたが...。 (define (fizz-buzz) (letrec ((loop (lambda (n result) (if (< n 1) result (cond ((= (remainder n 15) 0) (loop (- n 1) (cons…
巷で「Fizz-Buzz問題」が流行っているみたいなので、私も解いてみました。 ただし、3分以上かかってしまいましたが...。 (define (fizz-buzz) (letrec ((loop (lambda (n result) (if (< n 1) result (cond ((= (remainder n 15) 0) (loop (- n 1) (cons…