luxferre/clyx
1
0
Fork 0
Code Actions Activity

v0.3.5: allot

Browse Source
This commit is contained in:
Luxferre
2026-07-07 11:45:20 +03:00
parent 371b354bcb
commit ae6f1103e3
5 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib.clx
+1
View File
@@ -56,3 +56,4 @@
:: 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 ]
:: allot [ [] swap dup while [ swap 0 swap cons swap 1 - dup ] drop ]