v0.3.1: range/qfor/for in stdlib
This commit is contained in:
@@ -47,3 +47,6 @@
|
||||
:: bitxor [ over over bitnot bitand [ swap bitnot bitand ] dip bitor ]
|
||||
:: rev [ [] swap uncons while [ [ swap ] dip swap cons swap uncons ] drop ]
|
||||
:: s+ [ s2q [ s2q ] dip lcat ]
|
||||
:: range [ [] [ over over < ] dip swap while [ [ over ] dip qpush [ swap 1 + swap ] dip [ over over < ] dip swap ] nip nip ]
|
||||
:: qfor [ dup qlen while [ uncons drop [ [] cons cons ] dip swap dup 0 qget dip uncons drop swap 0 qget dup qlen ] drop drop ]
|
||||
:: for [ next next [ i ] dip swap qfor ]
|
||||
|
||||
Reference in New Issue
Block a user