Rosetta Code/Count examples: Difference between revisions

=={{header|MATLAB}} / {{header|Octave}}==

The function count_examples() need to be saved in a file count_examples.m and its directory need to be included in the path.

<lang MATLAB> function c = count_examples(url)

c = 0;

[s, success] = urlread (url);

if ~success, return; end;

c = length(strfind(s,'<h2><span class='));

end;

% script

s = urlread ('http://rosettacode.org/wiki/Category:Programming_Tasks');

pat = '<li><a href="/wiki/';

ix = strfind(s,pat)+length(pat)-6;

for k = 1:length(ix);

% look through all tasks

e = find(s(ix(k):end)==34,1)-2;

t = s(ix(k)+[0:e]); % task

c = count_examples(['http://rosettacode.org',t]);

printf('Task "%s" has %i examples\n',t(7:end), c);

end; </lang>