Count occurrences of a substring: Difference between revisions
add BQN
(→{{header|Picat}}: Added subsections. Moved benchmark text after the code.) |
(add BQN) |
||
Line 726:
"abab" in "ababababab": 2
"dog" in "cat": 0</pre>
=={{header|BQN}}==
<code>⍷</code> finds locations of substrings, rest of the function removes the substring for the next iteration.
<lang bqn>Find←{b←𝕨⍷𝕩, (0≠+´b)◶⟨0,1+𝕨𝕊·↓⟜𝕩(≠𝕨)⊸+⟩⊑1↑/b}
•Show "abab" Find "ababababab"
•Show "th" Find "the three truths"</lang>
<lang>2
3</lang>
=={{header|Bracmat}}==
| |||