Comments

エラトステネスの篩の改良 by はてなるせだいあり — last modified 2006-06-19 22:28

上のソースでは探索範囲1つにつき true/false を作るので、1億まで探索しようと思うとかなりのメモリが必要となる。どうせ真偽値なのだから、BitArray を用いれば候補一つにつき 1bit で済む。また、偶数はどうせ素数ではないので、奇数のみを探索対象にすることで、テーブ

[Squeak][Smalltalk][OOPL] エラトステネスのふるいをコンパクトにする方法 by sumim’s smalltalking-tos — last modified 2006-06-19 17:13

素数を列挙するにあたって、エラトステネスのふるいは比較的高速で、たとえば、404 Blog Not Found:LLR2006 - 1,000,000(番目|まで)の素数 で、いくつかの言語で例示されているのとほぼ同じことをする Squeak を使った Smalltalk の次のコード… [ | max primes isPrime | m

効率無視 by [1..100]>>=pen — last modified 2006-06-19 16:59

filter (\x -> (product [1..x-1]+1) `mod` x == 0) [2..100]

[Ruby] 100までの整数から素数を列挙せよ by miyamukoの日記 — last modified 2006-06-19 15:55

お題は「100までの整数から素数を列挙せよ」です． 手垢がついた手法だと思うけど、Google 電卓で計算してみた。 ほんとは はてなのスーパー pre 記法拡張を使ってみたかっただけ。

LL2006 君ならどう書く by FloralCompany.log — last modified 2006-06-19 15:29

LL2006の、「君ならどう書く」の読者参加版ができていた。 お題は 「100ま...

上限を決めずに素数を生成(JavaScript版) by メモ — last modified 2006-06-19 05:18

JavaScriptでも書いてみた。

shスクリプト by maeda — last modified 2006-06-19 01:18

#!/bin/sh

filter() { read p && ( echo $p; awk "\$1 % $p != 0" | filter ) }

seq 2 100 | filter

#seqやawkを使うのはズルかもしれませんが、どうせshだとexprやtestも外部コマンドなわけだし．．．
#zshやbashの拡張機能を使うのと同程度のズルですよね。

100までの素数を求める by T::Yok..... — last modified 2006-06-18 20:56

キミならどう書く 2.0 - ROUND 1面白そうなので参加。ハッシュを使ってみた。my $num = 100;my %a = map {$_, 1} 2..$num; for my $m (2..($num / 2)) { for my $n ($m..$num) {...