Return to setret.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/setret.p, revision 1.1.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.