Soloway's recurring rainfall: Difference between revisions

Content added Content deleted

Inline

@@ Line 78: / Line 78: @@
             BOOL valid := UPB s >= LWB s; # invalid if the string is empty #
             FOR s pos FROM LWB s TO UPB s WHILE valid DO
-                IF s[ s pos ] < "0" OR s[ s pos ] > "9"
+                IF valid := s[ s pos ] >= "0" AND s[ s pos ] <= "9"
                 THEN
-                    valid := FALSE                    # invalid characters #
-                ELSE
                     n *:= 10 +:= ( ABS s[ s pos ] - ABS "0" )
                 FI