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

This commit is contained in:
Simon Forman 2018-06-13 10:24:36 -07:00
parent 33f34dd15b
commit 049cfd22b7
1 changed files with 3 additions and 3 deletions

View File

@ -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