37 lines
361 B
Text
37 lines
361 B
Text
|Trabb Pardo–Knuth algorithm
|
||
|
||
a : 11 0
|
||
|
||
i
|
||
if i LE 10
|
||
[] $s
|
||
~ $s w
|
||
w a.i
|
||
+ i
|
||
goif
|
||
endif
|
||
10 i
|
||
if i GE 0
|
||
call f
|
||
if x GT 400
|
||
'too large' $s
|
||
else
|
||
~ x $s
|
||
endif
|
||
~ i $r
|
||
+ ' ' $r
|
||
+ $r $s.1
|
||
$s []
|
||
- i
|
||
goif
|
||
endif
|
||
stop
|
||
|
||
f a.i t
|
||
* t t x
|
||
* x t x
|
||
* 5 x
|
||
abs t
|
||
sqrt t y
|
||
+ y x
|
||
return
|