Count occurrences of a substring: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (add SETL) |
Not a robot (talk | contribs) (Add Refal) |
||
Line 3,217: | Line 3,217: | ||
ababababab - 2 |
ababababab - 2 |
||
</pre> |
</pre> |
||
=={{header|Refal}}== |
|||
<syntaxhighlight lang="refal">$ENTRY Go { |
|||
= <Prout <Count ('th') 'the three truths'>> |
|||
<Prout <Count ('abab') 'abababab'>>; |
|||
}; |
|||
Count { |
|||
(e.item) e.item e.rest = <+ 1 <Count (e.item) e.rest>>; |
|||
(e.item) s.x e.rest = <Count (e.item) e.rest>; |
|||
(e.item) = 0; |
|||
};</syntaxhighlight> |
|||
{{out}} |
|||
<pre>3 |
|||
2</pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |