17/07/08 11:54:07.74 H5pSyGdF.net
>>334 Squeak/Pharo Smalltalk
| sqrt |
sqrt := [:n :m |
"ref. URLﾘﾝｸ(xar.sh) "
| a b |
a := 5 * n. b := 5.
[:exit | [
a >= b ifTrue: [a := a - b. b := b + 10] ifFalse: [
b log > m ifTrue: [exit v
17/07/08 11:54:07.74 H5pSyGdF.net
>>334 Squeak/Pharo Smalltalk
| sqrt |
sqrt := [:n :m |
"ref. URLﾘﾝｸ(xar.sh) "
| a b |
a := 5 * n. b := 5.
[:exit | [
a >= b ifTrue: [a := a - b. b := b + 10] ifFalse: [
b log > m ifTrue: [exit v