IgorCielniak/l2
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small fix to 'contains' and added 'find'

Browse Source
This commit is contained in:
IgorCielniak
2026-03-25 11:05:55 +01:00
parent 75b01b9635
commit ab613e644a
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
stdlib/utils.sl
View File

@@ -531,7 +531,15 @@ end
# contains [*, addr, len, addr | len] -> [* | bool] # contains [*, addr, len, addr | len] -> [* | bool]
word contains word contains
2 pick for 2 pick for
4dup strcmp 1 == if 1 nip nip nip nip ret end 4dup strcmp 1 == if 1 nip nip nip nip rdrop ret end
>r >r >r 1 + r> r> r> >r >r >r 1 + r> r> r>
end 0 nip nip nip nip end 0 nip nip nip nip
end end
# find [*, addr, len, addr | len] -> [* | index]
word find
0 >r 2 pick for
4dup strcmp 1 == if rswap r> nip nip nip nip rdrop ret end
>r >r >r 1 + r> r> r> rswap r> 1 + >r rswap
end 0 nip nip nip nip
end