Return to pretty.out CVS log

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

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

1.1       root        1:  program bench3 ( input , output ) ;
                      2: 
                      3:  const max = 100 ;
                      4: 
                      5:  var i , len : integer ;
                      6:  inline : packed array [ 1 .. max ] of char ;
                      7:  palind : Boolean ;
                      8:  begin
                      9:     while not eof do begin
                     10:        len := 0 ;
                     11:        while not eoln do begin
                     12:           len := len + 1 ;
                     13:           inline [ len ] := input ^ ;
                     14:           get ( input )
                     15:        end ;
                     16:        readln ;
                     17:        while ( len > 1 ) and ( inline [ len ] =' ' ) do len := len - 1 ;
                     18:        palind := true ;
                     19:        for i := len downto len div 2 do if inline [ i ] <> inline [ len - i + 1 ] then palind := false ;
                     20:        for i := 1 to len do write ( inline [ i ] ) ;
                     21:        write (' is' ) ;
                     22:        if not palind then write (' not' ) ;
                     23:        writeln (' a palindrome' ) ;
                     24:     end
                     25:  end .
                     26: 
                     27: 19711 statements executed in 3.90 seconds cpu time.

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