uncons as basis

- clear deletes stack at once, not in a loop - make uncons basis and define first and rest in tems of it
2022-04-05 10:06:40 -07:00
parent 2fb27971f1
commit 9fe565a929
2 changed files with 5 additions and 4 deletions
@@ -83,13 +83,14 @@ split_list [take reverse] [drop] clop
 sqr dup *
 stackd [stack] dip
 step_zero 0 roll> step
+stuncons stack uncons
 sum [+] step_zero
 swapd [swap] dip
 swons swap cons
 swoncat swap concat
 sqr dup mul
 tailrec [i] genrec
-take [] roll> [shift] times pop
+take <<{} [shift] times pop
 ternary binary popd
 third rest second
 tuck dup swapd