ちょっと感動したのでメモ。もうちょっと長いコードかと思っていたらこれでできるんだな。 primes = sieve [2..] where sieve (s:ss) = s : sieve (filter (\x -> (mod x s) > 0) ss)primesってやると割り込みをかけるまで永遠に素数列が表示され続ける。 *M…