2008-07-21から1日間の記事一覧
(define (nabeatsu) (let ((continue 1) (return #f)) (letrec ((fb (lambda (n) (let ((divisible-by-3? (lambda () (zero? (modulo n 3)))) (has-3? (lambda () (let loop ((init n) (flag #f)) (let ((q (quotient init 10)) (r (modulo init 10))) (if (…
(define (make-circle radius) (let rows ((r 0) (row '())) (if (= r (+ (* 2 radius) 1)) (reverse row) (rows (+ r 1) (cons (let columns ((c 0) (col '())) (if (= c (+ (* 2 radius) 1)) (reverse col) (columns (+ c 1) (cons (if (> (magnitude (mak…