6 lines
190 B
Text
6 lines
190 B
Text
[ $ "bigrat.qky" loadfile ] now!
|
|
|
|
[ mod not ] is v-is-num ( n/d --> b )
|
|
|
|
[ 1+ dip [ proper rot drop ]
|
|
10 swap ** round v-is-num ] is approxint ( n/d n --> b )
|