v0.3.1: range/qfor/for in stdlib

This commit is contained in:
Luxferre
2026-07-05 17:40:48 +03:00
parent 260ad6c894
commit 4ed51b4429
7 changed files with 28 additions and 3 deletions
+3
View File
@@ -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 ]