よくわかる現代魔法

帰省ついでに、よくわかる現代魔法を回収。
それにしても、オリジナル版の厚さに吹いたw

で、登場人物の一人に美鎖さんという人がいるんですが、この人、緊張をほぐすために、

整数列 [2..] をsieve (n:ns)=n:sieve [m | m<-ns, m `rem` n/=0] でエラトステネスのふるいに―

よくわかる現代魔法

かけてるらしいですよw
というか、Haskellじゃないですか、そのコード。
旧バージョンを読んだときには気づかなかった、というか、多分Haskell知らなかったんじゃないかな。

ちなみに、[2..]じゃ終わらないので*1、実行できる止まるコードを。

sieve []     = []
sieve (n:ns) = n:sieve [m | m<-ns, m `rem` n /= 0]

これでsieve [2..100]とかやれば多分動く・・・はず。

*1:コメント欄で指摘があるように、takeで欲しいだけとれば実行できる