26 lines
502 B
Text
26 lines
502 B
Text
[ $ "bigrat.qky" loadfile ] now!
|
|
|
|
[ [] swap
|
|
[ dup while
|
|
base share /mod
|
|
rot join swap
|
|
again ]
|
|
drop ] is digits ( n --> [ )
|
|
|
|
[ base put
|
|
digits reverse
|
|
dup 0 swap
|
|
witheach
|
|
[ base share rot * + ]
|
|
base take rot size **
|
|
reduce ] is corput ( n n --> n/d )
|
|
|
|
|
|
5 times
|
|
[ say "base "
|
|
i^ 2 + dup echo
|
|
say ": "
|
|
10 times
|
|
[ i^ over corput
|
|
vulgar$ echo$ sp sp ]
|
|
cr drop ]
|