自然対数の底を求める
shinh さん の anarchy golf に、自然対数の底を小数点以下 100 桁までを出力するコーナー(?)があるのですが、ちゃんと求めようとすると(もちろん、ゴルファとして、この時点ですでに考え方が間違っているというのはおいておくとして…)どうしてもタイムアウトしてしまう。もしかしたら GNU Smalltalk って(処理によっては)むちゃくちゃ遅い?
…と気になったので、次のようななんのヒネリもない(かつ、どちらでも評価可能な)コードを書いて、その実行速度を測ることで Squeak の Smalltalk と比べてみました。
Time millisecondsToRun: [ ((1 to: 1e2) inject: 1 into: [:e :i | e + (1 / i factorial)]) asScaledDecimal: 100]