Kernighans large earthquake problem: Difference between revisions
m
→{{header|Amazing Hopper}}
Line 426:
COND( IS-NOT-FILE-ERROR? )
TOK-SEP( " " )
WHILE( NOT( EOF(fd) ) )
LET( Event := USING(MAX_LINE) READ-LINE(fd) APPLY-TRM )
Line 441 ⟶ 440:
}
WEND
CLOSE(fd)
ELS
Line 448 ⟶ 446:
END
</lang>
<p>And this is fast!</p>
=={{header|AppleScript}}==
|