Return to cntchars.out CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/tstpx/out/cntchars.out, revision 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.