Return to setret.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Initial revision

program setret(output);

type
bigset = set of char;

var
old :bigset;

function bigit(inp : bigset) :bigset;
begin
bigit := inp - ['a'..'z'];
end;

begin
old := ['g'..'w', 'A'..'S'];
writeln('before ', card(old));
writeln('after ',card(bigit(old)));
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.