Return to cntchars.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/cntchars.p, revision 1.1.1.1

1.1       root        1: program countcharacters(input,output);
                      2:   var ch: char;
                      3:     c0,c1,c2,c3,c4: integer;  {counters}
                      4: begin writeln(wallclock); { linelimit(output, -1); }
                      5:   c0 := 0; c1 := 0; c2 := 0; c3 := 0; c4 := 0;
                      6:   while not eof(input) do
                      7:   begin write(' '); c0 := c0+1;
                      8:     while not eoln(input) do
                      9:     begin read(ch); write(ch);
                     10:       if ch = ' ' then c1 := c1+1 else
                     11:       if ch in ['a'..'z'] then c2 := c2+1 else
                     12:       if ch in ['0'..'9'] then c3 := c3+1 else c4 := c4+1
                     13:     end ;
                     14:     readln; writeln
                     15:   end ;
                     16:   writeln(wallclock);
                     17:   writeln(c0,' lines');
                     18:   writeln(c1,' blanks');
                     19:   writeln(c2,' letters');
                     20:   writeln(c3,' digits');
                     21:   writeln(c4,' special characters');
                     22:   writeln(wallclock)
                     23: end .

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