13/11/26 01:52:17.39
Simulaでこの処理を書いてみたらいいとおもうよ。
Smalltalkとの実用性の差は歴然。
お題：√2 を小数点以下1000桁まで展開せよ?
ちなみにSmalltalkではこんな感じ。
| x epsi delta |
x := 1.
epsi := 1/(10 raisedTo: 1000).
[(delta := -2 * x * x + 1 * x / 2) abs > epsi] whileTrue: [x := x + delta].
^x * 2s1000
ideone (GNU Smalltalk) だと駄目だけど、VisualWorks、Squeak、Pharo で動く。