Count occurrences of a substring: Difference between revisions

=={{header|RPL}}==

{{works with|Halcyon Calc|4.2.7}}

≪ DUP2 → s t

≪ SIZE SWAP SIZE

'''IF''' DUP2 * LAST ≤ AND '''THEN'''

SWAP - 1 + 0 R→C

'''WHILE''' DUP RE 0 > '''REPEAT'''

s OVER RE DUP t SIZE + 1 - SUB

'''IF''' t == '''THEN''' t SIZE -1 R→C - '''ELSE''' (1,0) - '''END'''

'''END'''

IM

'''ELSE''' DROP2 -1 '''END'''

≫ ≫ ''''CNTSUB'''' STO