121 lines
2.1 KiB
Plaintext
121 lines
2.1 KiB
Plaintext
reset_log words mouse_bindings key_bindings
|
|
|
|
Stack Chatter
|
|
|
|
dup dupd dupdd over tuck
|
|
pop popd popdd popop popopd popopdd
|
|
swap roll< roll> rolldown rollup
|
|
unit clear
|
|
|
|
Math
|
|
|
|
add + sub - mul * truediv / mod %
|
|
div divmod floor pm
|
|
abs sqr sqrt neg pow
|
|
max min sum average product
|
|
pred -- succ ++ lshift << rshift >>
|
|
|
|
Logic
|
|
|
|
ge gt eq le lt ne
|
|
< <= = >= > != <>
|
|
and & or not xor ^
|
|
bool truthy ?
|
|
|
|
Combinators
|
|
|
|
i x b infra dip dipd dipdd dupdip dupdipd
|
|
cleave fork app1 app2 app3 map pam
|
|
nullary unary binary ternary
|
|
|
|
Control Flow
|
|
|
|
branch cond ifte choice
|
|
loop while genrec primrec
|
|
make_generator
|
|
|
|
List Manipulation
|
|
|
|
enstacken disenstacken stack unstack
|
|
first first_two second third fourth rest rrest
|
|
flatten drop take reverse select zip
|
|
size sort shunt getitem
|
|
step step_zero times
|
|
cons ccons uncons swons unswons
|
|
concat unique
|
|
remove
|
|
at of pick
|
|
unquoted quoted
|
|
|
|
Misc
|
|
|
|
down_to_zero cmp gcd help id
|
|
least_fraction parse quoted
|
|
range range_to_zero
|
|
reset_log show_log
|
|
run
|
|
stuncons stununcons
|
|
swaack
|
|
void
|
|
|
|
|
|
[ ] Add logging?
|
|
[ ] INI file?
|
|
[ ] definitions.txt
|
|
[ ] Integrate inference
|
|
[ ] command to (re-)run with trace
|
|
[ ] Backtime button?
|
|
|
|
|
|
------------------------------------------
|
|
[23 18] [unit i]
|
|
|
|
sqr foo == uncons mul
|
|
|
|
swaack
|
|
|
|
over [[[neg] dupdip sqr 4] dipd * * - sqrt pm] dip 2 * [/] cons app2
|
|
|
|
5 sqrt 2 / 0.5 +
|
|
5 sqrt 1 + 2 /
|
|
phi == 5 sqrt ++ 2 /
|
|
phi == 1.618033988749895
|
|
(But this is Lambda Abstaction sneaking in the back door.)
|
|
=
|
|
clear
|
|
|
|
(n1 n2 -- ☯)
|
|
|
|
2018 20 18 20 23 0.5
|
|
472 83 / -7
|
|
100
|
|
|
|
100 * floor 100 / show_log
|
|
|
|
[2 3] [swap truediv] infra
|
|
|
|
dup infra key_bindings divmod
|
|
|
|
1 [dup 1 <<] make_generator 23 [x popd] times first
|
|
|
|
mcc91 == [100 >] [10 -] [11 + mcc91 mcc91] ifte
|
|
== [100 >] [10 -] [11 + [mcc91] [mcc91] b] ifte
|
|
== [100 >] [10 -] [11 + [mcc91] dup b] ifte
|
|
mcc91 == [100 >] [10 -] [11 +] [dup b] genrec
|
|
|
|
279841 20 20 20 202318 279841 279841 27984127984120202318
|
|
|
|
inscribe
|
|
|
|
round_to_cents == 100 * ++ floor 100 /
|
|
|
|
|
|
[12 18] [[pm] infra] make_generator
|
|
|
|
[12 18] [[[+] [3 /] fork popopdd] infra] make_generator
|
|
|
|
[stack] [pop] while
|
|
|
|
|
|
|