Elegant definitions for un-, bin-, tern-ary combinators.
This commit is contained in:
parent
33f34dd15b
commit
049cfd22b7
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue