Return to cntchars.out CVS log

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

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

1.1       root        1:  415145824
                      2:  program countcharacters(input,output);
                      3:    var ch: char;
                      4:      c0,c1,c2,c3,c4: integer;  {counters}
                      5:  begin writeln(wallclock); { linelimit(output, -1); }
                      6:    c0 := 0; c1 := 0; c2 := 0; c3 := 0; c4 := 0;
                      7:    while not eof(input) do
                      8:    begin write(' '); c0 := c0+1;
                      9:      while not eoln(input) do
                     10:      begin read(ch); write(ch);
                     11:        if ch = ' ' then c1 := c1+1 else
                     12:        if ch in ['a'..'z'] then c2 := c2+1 else
                     13:        if ch in ['0'..'9'] then c3 := c3+1 else c4 := c4+1
                     14:      end ;
                     15:      readln; writeln
                     16:    end ;
                     17:    writeln(wallclock);
                     18:    writeln(c0,' lines');
                     19:    writeln(c1,' blanks');
                     20:    writeln(c2,' letters');
                     21:    writeln(c3,' digits');
                     22:    writeln(c4,' special characters');
                     23:    writeln(wallclock)
                     24:  end .
                     25:  415145825
                     26:         23 lines
                     27:        138 blanks
                     28:        355 letters
                     29:         38 digits
                     30:        128 special characters
                     31:  415145825
                     32: 
                     33: 4134 statements executed in 0.62 seconds cpu time.

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