Perl6 (pugs) で動くようにしてみた。 #!/usr/bin/pugs my $max = @*ARGS.pop || 100; my @primes = (2); for (3..$max) -> $n { @primes.push($n) if @primes.before_incl:{ sqrt $n <= $_ }.all:{ $n % $_ }; } @primes.join(' ').say; sub all (@list, $t…

FedoraにPugsをインストール - hide-k.net#blog を参考に。ghc は yum で 6.4.2 をインストール。 hs-plugins は http://www.haskell.org/fedora/ の RPM から、と思ったが FC5 用の RPM がまだないようだ。hs-plugins-0.9.10-4.20050922.src.rpm から hs-pl…

http://ll.jus.or.jp/2006/blog/doukaku1/ http://d.hatena.ne.jp/t-akihito/20060625/1151227410 LL Ring のチケット発売今日からだ。買ってこなくちゃ。List::MoreUtils から all と before_incl を使って、リスト操作っぽく書いてみた。List::MoreUtils …

LLRing の締め切りは過ぎちゃったけど。Filter::Eratosthenes. entry.body に含まれる素数以外の数値を削除 (又は config で指定された文字列に置換) するフィルタ。誰かネタにしてたような…… package Plagger::Plugin::Filter::Eratosthenes; use strict; u…