Return to setret.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/setret.p, revision 1.1

1.1     ! root        1: program setret(output);
        !             2: 
        !             3: type
        !             4: bigset = set of char;
        !             5: 
        !             6: var
        !             7: old :bigset;
        !             8: 
        !             9: function bigit(inp : bigset) :bigset;
        !            10: begin
        !            11: bigit := inp - ['a'..'z'];
        !            12: end;
        !            13: 
        !            14: begin
        !            15: old := ['g'..'w', 'A'..'S'];
        !            16: writeln('before ', card(old));
        !            17: writeln('after ',card(bigit(old)));
        !            18: end.

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