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
@@ -1,17 +1,49 @@
-see_stack == good_viewer_location open_stack
-see_resources == list_resources good_viewer_location open_viewer
-open_resource_at_good_location == good_viewer_location open_resource
-see_log == "log.txt" open_resource_at_good_location
-see_definitions == "definitions.txt" open_resource_at_good_location
-round_to_cents == 100 * ++ floor 100 /
-reset_log == "del log.lines[1:] ; log.at_line = 0" evaluate
-see_menu == "menu.txt" good_viewer_location open_resource

-# Ordered Binary Tree datastructure functions.
-BTree-new == swap [[] []] cons cons
- _BTree-P == over [popop popop first] nullary
- _BTree-T> == [cons cons dipdd] cons cons cons infra
- _BTree-T< == [cons cons dipd] cons cons cons infra
- _BTree-E == pop swap roll< rest rest cons cons
- _BTree-recur == _BTree-P [_BTree-T>] [_BTree-E] [_BTree-T<] cmp
-BTree-add == [popop not] [[pop] dipd BTree-new] [] [_BTree-recur] genrec
+round_to_cents == 100 * ++ floor 100 /
+
+
+Ordered Binary Tree datastructure functions.
+
+fourth == rest_two rest first
+?fourth == [] [fourth] [] ifte
+first_two == uncons uncons pop
+ccons == cons cons
+cinf == cons infra
+rest_two == rest rest
+
+_Tree_T> == [dipd] cinf
+_Tree_T< == [dipdd] cinf
+
+_Tree_add_P == over [popop popop first] nullary
+_Tree_add_T> == ccons _Tree_T<
+_Tree_add_T< == ccons _Tree_T>
+_Tree_add_Ee = = pop swap roll< rest_two ccons
+_Tree_add_R == _Tree_add_P [_Tree_add_T>] [_Tree_add_Ee] [_Tree_add_T<] cmp
+_Tree_add_E == [pop] dipd Tree-new
+
+_Tree_iter_order_left == [cons dip] dupdip
+_Tree_iter_order_current == [[F] dupdip] dip
+_Tree_iter_order_right == [fourth] dip i
+_Tree_iter_order_R == _Tree_iter_order_left _Tree_iter_order_current _Tree_iter_order_right
+
+_Tree_get_P == over [pop popop first] nullary
+_Tree_get_T> == [fourth] dipd i
+_Tree_get_T< == [third] dipd i
+_Tree_get_E = = popop second
+_Tree_get_R == _Tree_get_P [_Tree_get_T>] [_Tree_get_E] [_Tree_get_T<] cmp
+
+_Tree_delete_rightmost == [?fourth] [fourth] while
+_Tree_delete_clear_stuff = = roll> popop rest
+_Tree_delete_del == dip cons dipd swap
+_Tree_delete_W == dup _Tree_delete_rightmost first_two over
+_Tree_delete_E.0 == _Tree_delete_clear_stuff [_Tree_delete_W] _Tree_delete_del
+_Tree_delete_E == [[[pop third not] pop fourth] [[pop fourth not] pop third] [[_Tree_delete_E.0] cinf]] cond
+_Tree_delete_R0 = = over first swap dup
+_Tree_delete_R1 == cons roll> [_Tree_T>] [_Tree_delete_E] [_Tree_T<] cmp
+
+Tree-new == swap [[] []] ccons
+Tree-add == [popop not] [_Tree_add_E] [] [_Tree_add_R] genrec
+Tree-iter == [not] [pop] roll< [dupdip rest_two] cons [step] genrec
+Tree-iter-order == [not] [pop] [dup third] [_Tree_iter_order_R] genrec
+Tree-get == [pop not] swap [] [_Tree_get_R] genrec
+Tree-delete == [pop not] [pop] [_Tree_delete_R0] [_Tree_delete_R1] genrec
@@ -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
-
-
-
@@ -13,41 +13,3 @@
 <Control-Delete> = pop
 <Control-i> = i

-
-[Definitions]
-of = swap at
-product = 1 swap [*] step
-flatten = [] swap [concat] step
-quoted = [unit] dip
-unquoted = [i] dip
-enstacken = stack [clear] dip
-? = dup truthy
-disenstacken = ? [uncons ?] loop pop
-dinfrirst = dip infra first
-nullary = [stack] dinfrirst
-unary = nullary popd
-binary = nullary [popop] dip
-ternary = unary [popop] dip
-pam = [i] map
-run = [] swap infra
-sqr = dup mul
-size = 0 swap [pop ++] step
-fork = [i] app2
-cleave = fork [popd] dip
-average = [sum 1.0 *] [size] cleave /
-gcd = 1 [tuck modulus dup 0 >] loop pop
-least_fraction = dup [gcd] infra [div] concat map
-*fraction = [uncons] dip uncons [swap] dip concat [*] infra [*] dip cons
-*fraction0 = concat [[swap] dip * [*] dip] infra
-down_to_zero = [0 >] [dup --] while
-range_to_zero = unit [down_to_zero] infra
-anamorphism = [pop []] swap [dip swons] genrec
-range = [0 <=] [1 - dup] anamorphism
-while = swap [nullary] cons dup dipd concat loop
-dupdipd = dup dipd
-primrec = [i] genrec
-step_zero = 0 roll> step
-codireco = cons dip rest cons
-make_generator = [codireco] ccons
-ifte = [nullary not] dipd branch
-