Truncatable primes: Difference between revisions
Content deleted Content added
→[[Truncatable_primes#ALGOL 68]]: Translation of C version into ALGOL 68 |
m →{{header|ALGOL 68}}: rename a procedure |
||
| Line 106: | Line 106: | ||
); |
); |
||
PROC |
PROC string to int = (STRING in a)INT:( |
||
FILE f; STRING a:=in a; associate(f, a); |
FILE f; STRING a:=in a; associate(f, a); |
||
INT i; get(f, i); close(f); |
INT i; get(f, i); close(f); |
||
| Line 121: | Line 121: | ||
func(s); |
func(s); |
||
IF UPB s = 0 THEN true exit FI; |
IF UPB s = 0 THEN true exit FI; |
||
n := |
n := string to int(s) |
||
OD; |
OD; |
||
FALSE EXIT |
FALSE EXIT |
||