Rework the default JOY_HOME contents.

2018-07-21 20:19:38 -07:00
parent 33a952ff71
commit f96362a904
6 changed files with 102 additions and 196 deletions
@@ -57,64 +57,3 @@ Misc
 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
-
-
-