Count occurrences of a substring: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add Miranda |
Not a robot (talk | contribs) Add Draco |
||
Line 1,042: | Line 1,042: | ||
Writeln(CountSubstring('ababababab', 'abab')); |
Writeln(CountSubstring('ababababab', 'abab')); |
||
end.</syntaxhighlight> |
end.</syntaxhighlight> |
||
=={{header|Draco}}== |
|||
<syntaxhighlight lang="draco">proc countSubstring(*char string, substring) word: |
|||
word count; |
|||
*char pos, loc; |
|||
count := 0; |
|||
while string* /= '\e' do |
|||
pos := substring; |
|||
loc := string; |
|||
while loc* = pos* do |
|||
loc := loc + 1; |
|||
pos := pos + 1 |
|||
od; |
|||
if pos* = '\e' then |
|||
string := loc; |
|||
count := count + 1 |
|||
else |
|||
string := string + 1 |
|||
fi |
|||
od; |
|||
count |
|||
corp |
|||
proc main() void: |
|||
writeln(countSubstring("the three truths", "th")); |
|||
writeln(countSubstring("ababababab", "abab")) |
|||
corp</syntaxhighlight> |
|||
{{out}} |
|||
<pre>3 |
|||
2</pre> |
|||
=={{header|Dyalect}}== |
=={{header|Dyalect}}== |