luxferre/clyx
1
0
Fork 0
Code Actions Activity

optimized allot

Browse Source
This commit is contained in:
Luxferre
2026-07-07 21:34:15 +03:00
parent ae6f1103e3
commit 7b30ddacbd
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib.clx
+1 -1
View File
@@ -56,4 +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 ]
:: allot [ [0] swap * ]