TSperl 発言

KAWAI,Takanoriさんの[TSperl:598] Re: INT 関数の使い方についてから
>bignumを使ってみるとか...

うほっ、それならいつでも bignum しときゃいいじゃん！と思ったら、
しないほうが「それなり」の結果になる場合もあるんですね。

[スクリプト]
use strict;
my $x = shift or die;
my $total = 0;
$total += 1 / $x foreach(1..$x);
print $total == 1 ? "ok" : "NG";

[実行結果(1)]
D:$ perl          gomi.pl 10
NG
D:$ perl -Mbignum gomi.pl 10
ok

[実行結果(2)]
D:$ perl          gomi.pl 3
ok
D:$ perl -Mbignum gomi.pl 3
NG
D:$

perl gomi.pl 3 が 1 になるのが不思議。
--