[Haskell] これで素数が出るなんて！

primes = map head (iterate sieve [2..])
sieve (p:xs) = [x| x<-xs, x `mod` p /=0]

・・・たったこれだけで素数がずらずら出てくる。
すごい。ミラクル。かっこいい。
クイックソートの例は見たことあったけど、これは初めて。
まだ理解できていないけど、凄いパワーだHaskell

レノボ、Linux搭載「ThinkPad」を発売へ--ノベルと提携:ニュース - CNET Japan

レノボ、Linux搭載「ThinkPad」を発売へ--ノベルと提携:ニュース - CNET Japan
お、ThinkPadにLinuxですか。
独特のトラックパッド（スティック？）にも対応しているんでしょうね、そりゃ。
個人向けにも販売されるそうですが、いかがなもんでしょうか。
シリーズ化されるほどに売れればよいんですが。