2008年6月アーカイブ
私たちの諜報活動により、あなたが南アフリカ政府財務省からの合法的な現金転送に失敗していることが判明した。財務省に問い合わせたところ、あなたには$8,000,000の現金を手に入れる権利があり、そのためにはATMセンターに連絡して引き出し用のカードが必要になる。そのための経費として$750が必要になるので、以下の申込書に記入し返信した上、経費を振り込んでほしい。
kkato (2008-06-25 10:04) | コメント(6)| トラックバック(0)
def rational(x)
1.upto(10) do |j|
d=x*j
if ((d-(d+0.5).to_i).abs<0.02)
a=(d+0.5).to_i
if j==1
return "#{a}"
else
return "#{a}/#{j}"
end
end
end
return ""
end
0.upto(87) do |i|
a = rational(2.to_f**(i.to_f/12.0))
if (a!="")
print "2^{#{i}/12} = #{a}\n"
end
end
そして以下が結果
2^{0/12} = 1
2^{5/12} = 4/3
2^{7/12} = 3/2
2^{11/12} = 17/9
2^{12/12} = 2
2^{17/12} = 8/3
2^{19/12} = 3
2^{24/12} = 4
2^{29/12} = 16/3
2^{31/12} = 6
2^{34/12} = 57/8
2^{36/12} = 8
2^{43/12} = 12
2^{44/12} = 127/10
2^{46/12} = 57/4
2^{47/12} = 151/10
2^{48/12} = 16
2^{54/12} = 181/8
2^{56/12} = 127/5
2^{58/12} = 57/2
2^{59/12} = 151/5
2^{60/12} = 32
2^{65/12} = 299/7
2^{66/12} = 181/4
2^{68/12} = 254/5
2^{70/12} = 57
2^{72/12} = 64
2^{75/12} = 685/9
2^{77/12} = 598/7
2^{78/12} = 181/2
2^{84/12} = 128
kkato (2008-06-17 14:02) | コメント(3)| トラックバック(0)
kkato (2008-06-16 16:05) | コメント(0)| トラックバック(0)
kkato (2008-06-10 17:19) | コメント(0)| トラックバック(0)
kkato (2008-06-06 18:43) | コメント(0)| トラックバック(0)
プロフィール
kkato
・10年以上前からのdebian使いです。
・C++, Ruby, perl, ocamlなどの言語をよく使います。
・数値計算などが得意です。
・スパムメールの文面をよく読むのが好きです。
ホームページ:
http://sites.google.com/site/kimikazu/
カテゴリ
月別アーカイブ
Copyright (C) 2004-2011 Nihon Unisys, Ltd. All Rights Reserved.
Powered by Movable Type Open Source