Kernighans large earthquake problem: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 339: | Line 339: | ||
close( input file ) |
close( input file ) |
||
FI</lang> |
FI</lang> |
||
=={{header|Amazing Hopper}}== |
|||
<lang Amazing Hopper> |
|||
/* Kernighans large earthquake problem. */ |
|||
#include <flow.h> |
|||
#define MAX_LINE 1000 |
|||
DEF-MAIN(argv,argc) |
|||
MSET(fd, Event ) |
|||
OPEN-INPUT("datos.txt")(fd) |
|||
COND( IS-NOT-FILE-ERROR? ) |
|||
TOK-SEP( " " ), [3] |
|||
WHILE( NOT( EOF(fd) ) ) |
|||
LET( Event := USING(MAX_LINE) READ-AS-ROW(fd), DUPLICATE-IT ) |
|||
WHEN( IS-NOT-LENGTH-ZERO? ){ |
|||
WHEN( GT?( GET(Event), 6 ) ){ |
|||
PRNL( Event ) |
|||
} |
|||
} |
|||
CLEAR( Event ) |
|||
WEND |
|||
CLOSE(fd) |
|||
ELS |
|||
PRNL("Error: ", ~GET-STR-FILE-ERROR ) |
|||
CEND |
|||
END |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
Data file: datos.txt. |
|||
8/27/1883 Krakatoa 8.8 |
|||
5/18/1980 MountStHelens 7.6 |
|||
3/13/2009 CostaRica 5.1 |
|||
1/23/4567 EdgeCase1 6 |
|||
1/24/4567 EdgeCase2 6.0 |
|||
1/25/4567 EdgeCase3 6.1 |
|||
</pre> |
|||
Output: |
|||
<pre> |
|||
$ hopper fl/evento.flw |
|||
8/27/1883 Krakatoa 8.8 |
|||
5/18/1980 MountStHelens 7.6 |
|||
1/25/4567 EdgeCase3 6.1 |
|||
$ |
|||
</pre> |
|||
=={{header|AppleScript}}== |
=={{header|AppleScript}}== |