Count occurrences of a substring: Difference between revisions
Add Refal
Not a robot (talk | contribs) (add SETL) |
Not a robot (talk | contribs) (Add Refal) |
||
Line 3,217:
ababababab - 2
</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}}==
| |||