Count occurrences of a substring: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,773:
=={{header|Perl 6}}==
<lang perl6>sub count-substring($big,$little) { +$big.comb:
say count-substring("the three truths","th"); # 3
say count-substring("ababababab","abab");
say count-substring(123123123,12); # 3</lang>
The <tt>~</tt> prefix operator converts <tt>$little</tt> to a <tt>Str</tt> if it isn't already, and <tt>.comb</tt> when given a <tt>Str</tt> as an argument returns instances of that substring. You can think of it as if the argument was a regex that matched the string literally <tt>/$little/</tt>. Also, prefix <tt>+</tt> forces numeric context in Perl 6 (it's a no-op in Perl 5). For the built in listy types that is the same as calling <tt>.elems</tt> method. One other style point: we now tend to prefer hyphenated names over camelCase.
=={{header|Phix}}==
|