Rosetta Code/Count examples: Difference between revisions
Content added Content deleted
(Add factor) |
(Factor, borrow occurences from http://rosettacode.org/wiki/Count_occurrences_of_a_substring#Factor) |
||
| Line 695: | Line 695: | ||
content-base-url swap "&" glue ; |
content-base-url swap "&" glue ; |
||
: occurences ( |
: occurences ( seq subseq -- n ) split-subseq length 1 - ; |
||
[ 0 ] 2dip 0 [ [ 2dup ] dip start* dup ] [ [ 1 + ] 3dip 1 + ] while 3drop ; |
|||
: count-examples ( title -- n ) |
: count-examples ( title -- n ) |
||
content-url http-get nip "=={{header|" |
content-url http-get nip "=={{header|" occurences ; |
||
: print-task ( title n -- ) "%s: %d examples.\n" printf ; |
: print-task ( title n -- ) "%s: %d examples.\n" printf ; |
||