blob: df81cd8a649b7d6dbe844ed46940ba37e0cf3cf3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
evalstr [ strquote eval ] func
include [ fread evalstr ] func
# Author: Preston Pan
neg [ 0 swap - ] func
# Author of loop function: Andrei S
loop [
swap dup 0 > [
swap
dup eval
swap 1 - swap loop
] [ dsc dsc ] if
] func
# Author: Matthew H
dupd [ [ dup ] keep ] func
over [ dupd swap ] func
dup2 [ over over ] func
dip2 [ swap [ dip ] dip ] func
while [ dup2 [ [ ] if ] dip2 over [ while ] [ dsc dsc ] if ] func
loop-times [ dup2 [ swap [ ] if ] dip2
dup [ 1 - loop-times ] [ dsc dsc ] if ] func
d>base [ [ pow * "" swap ] keep2
[ [ over ] [ [ dup2 / floor * swap over - ] keep [ [ "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "↊" "↋" ] vat swap + ] with dip2 ] while dsc2 dup len(str-len) ] dip
- dup2 tail [ head "." ] dip + + ] func
|
