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
|
? == dup truthy
|
||||||
dinfrirst == dip infra first
|
dinfrirst == dip infra first
|
||||||
nullary == [stack] dinfrirst
|
nullary == [stack] dinfrirst
|
||||||
unary == [stack [pop] dip] dinfrirst
|
unary == nullary popd
|
||||||
binary == [stack [popop] dip] dinfrirst
|
binary == nullary [popop] dip
|
||||||
ternary == [stack [popop pop] dip] dinfrirst
|
ternary == unary [popop] dip
|
||||||
pam == [i] map
|
pam == [i] map
|
||||||
run == [] swap infra
|
run == [] swap infra
|
||||||
sqr == dup mul
|
sqr == dup mul
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue