added contains, 3dup and 4dup

2026-03-25 10:38:43 +01:00
parent b263e7d0de
commit 75b01b9635
2 changed files with 355 additions and 316 deletions
--- a/stdlib/utils.sl
+++ b/stdlib/utils.sl
@@ -527,3 +527,11 @@ word endswith
    dup 3 pick swap - 4 pick + over 2 pick 4 pick swap strcmp
    nip nip nip nip
 end
+
+# contains [*, addr, len, addr | len] -> [* | bool]
+word contains
+    2 pick for
+        4dup strcmp 1 == if 1 nip nip nip nip ret end
+        >r >r >r 1 + r> r> r>
+    end 0 nip nip nip nip
+end