Project EulerGaucheでProject Eulerを解いてみよう 問題1から31まで解きました(gemma(2008/03/31 19:25:20 PDT) (use srfi-1) (use util.stream) (use math.mt-random) (use util.combinations) (use gauche.sequence) n以下の素数のリストを返す関数(エラトステネスの篩) (define (primes n) (if (<= n 2) '() (let loop ((l (unfold (cut > <> n) values (cut + <> 2) 3)) (prime-list '(2))) (let1 m (car l) (if (> (expt m 2) n) (append (reverse prime-list) l) (loop (remove (lam
