お題４ prime numbers†
仕様†
入力された数だけ素数を２から出力
Sample input 10 Sample output 2 3 5 7 11 13 17 19 23 29
10までのって意味じゃないことに注意
参考†
なんで１は素数じゃないの？
ｱﾅｰｷｰｺﾞﾙﾌによればC言語で75、るびーで43、ぱいてよんで53バイトらしいです
提出†
C†
- 08.03.07 Zauberer GCC 4.1.2で確認 100バイト
i,j;main(n){for(i=scanf("%d",&n);i++,n;i-j?0:printf("%d\n",i,n--)){for(j=1;++j<i;)if(!(i%j))break;}}とりあえず叩き台を．
追記：同上 98バイトi,j;main(n){for(i=scanf("%d",&n);i++,n;i-j?0:printf("%d\n",i,n--))for(j=1;++j<i;)if(!(i%j))break;}括弧を削り忘れてた．
Ruby†
- 08.02.21 Zauberer ruby 1.8.5 (2006-08-25) [powerpc-linux]で確認 74バイト
a=Array.new(9.*n=gets.to_i){|i|i+2} n.times{p k=a[0] a.reject!{|x|x%k==0}}ちょっと真面目にエラトステネスのふるい．
- 08.02.23 Zauberer ruby 1.8.5 (2006-08-25) [powerpc-linux]で確認 55バイト
a=*2..999 gets.to_i.times{p k=a[0] a.reject!{|x|x%k<1}}連続した値の配列はRangeから作れる．
python†
PHP†
関数言語たちの酒場†
- 08.02.23 kurohuku scheme Gauche scheme interpreter 0.8.12(Cygwin)上で確認 141バイト
(use srfi-1)(do((a(read)a)(c'()(cons(car d)c))(d(iota 999 2)(filter(lambda(x)(=(gcd x(car d))1))d)))((=(length c)a)(map print(reverse c))))
対抗してエラトステネスのふるいっぽいものを．どうやれば半分に縮まるんだろうねぇ．
難解言語たちの挽歌†
- 08.03.23 Zauberer Befunge-93 v2.21で確認 88バイト
&00p2.25*,1v v!p00:-1g00< _v> 5*,^@ >2+0>1+20p::20g8*`v . ^ |\g02 %+1*2g02_ ^ $ <
先日のアレをいじってみた．
