- プログラミングのお題スレ Part6©2ch.net
221 ：デフォルトの名無しさん[sage]：2015/01/03(土) 19:12:05.10 ID:wE6j5dI1 - >>220
(define (reigai limit)
(let loop ((n 2) (result '()))
(if (> n limit)
result
(loop (inc n) (if (and (zero? (modulo (- (expt 2 n) 2) n)) (not (prime? n)))
(cons n result)
result)))))
|
|