18 lines
433 B
Text
18 lines
433 B
Text
[ $ "bigrat.qky" loadfile ] now!
|
|
|
|
[ $->v drop
|
|
2dup vabs 10 vsqrt drop
|
|
2swap 2dup 2dup
|
|
v* v* 5 n->v v* v+ ] is function ( $ --> n/d )
|
|
|
|
[ $ "Please enter 11 numbers: "
|
|
input nest$
|
|
reverse
|
|
witheach
|
|
[ function
|
|
400 n->v 2over v< iff
|
|
[ 2drop say "overflow" ]
|
|
else
|
|
[ 7 point$ echo$ ]
|
|
sp ]
|
|
cr ] is task ( --> )
|