Elegant definitions for un-, bin-, tern-ary combinators.

2018-06-13 10:24:36 -07:00
parent 33f34dd15b
commit 049cfd22b7
1 changed files with 3 additions and 3 deletions
@@ -103,9 +103,9 @@ disenstacken == ? [uncons ?] loop pop
 ? == dup truthy
 dinfrirst == dip infra first
 nullary == [stack] dinfrirst
-unary == [stack [pop] dip] dinfrirst
-binary == [stack [popop] dip] dinfrirst
-ternary == [stack [popop pop] dip] dinfrirst
+unary == nullary popd
+binary == nullary [popop] dip
+ternary == unary [popop] dip
 pam == [i] map
 run == [] swap infra
 sqr == dup mul