19 lines
346 B
Plaintext
19 lines
346 B
Plaintext
[ $ "bigrat.qky" loadfile ] now!
|
|
|
|
[ do over -
|
|
2swap
|
|
do over -
|
|
unrot
|
|
dip [ $->v drop ]
|
|
n->v v-
|
|
rot n->v v/
|
|
rot n->v v*
|
|
rot n->v v+ ] is maprange ( $ [ [ --> n/d )
|
|
|
|
$ "0 1 2 3 4 5 6 7 8 9 10"
|
|
nest$
|
|
witheach
|
|
[ dup echo$ say " maps to "
|
|
' [ 0 10 ] ' [ -1 0 ] maprange
|
|
7 point$ echo$ cr ]
|