String matching: Difference between revisions
→{{header|Quackery}}: Added commentary.
(Added Quackery.) |
(→{{header|Quackery}}: Added commentary.) |
||
Line 3,534:
=={{header|Quackery}}==
These work for any nests (i.e. dynamic arrays), not just strings (i.e. nests of chars).
[ tuck size split drop = ] is starts ( $ $ --> b )▼
<lang Quackery> [ tuck size
[ 2dup = iff true
else
[ over
2dup starts iff true done
dip behead nip again ]
dip 2drop ] is contains (
[ iff
| |||