PC^2/pc2/samps/sumit.st

   1 " File: sum1.st
   2         Purpose: sum positive integers problem
   3   Date: 10/3/97
   4         Author: pc2@ecs.csus.edu  (laned)
   5         Source: smalltalk
   6         $Id: sumit.st,v 1.1 2005/03/06 05:13:57 laned Exp $ "
   7 | v stream1 stream0 sum line |
   8
   9 (stream0 := CfsReadFileStream open: 'sumit.dat') isCfsError
  10         ifTrue: [^self error: stream0 message].
  11 (stream1 := CfsWriteFileStream open: 'sum.out') isCfsError
  12         ifTrue: [^self error: stream1 message].
  13
  14 sum := 00.
  15
  16 [stream0 atEnd ]
  17    whileFalse: [
  18      line := stream0 nextLine.
  19       v := line asDecimal.
  20         v > 0 ifTrue: [         sum := sum + v asInteger ]
  21 ].
  22
  23 'The sum of positive integer is ' storeOn: stream1.
  24 sum storeOn: stream1.
  25 stream1 cr.
  26
  27 stream1 cr.
  28
  29 stream1 close.
  30 stream0 close.