Kernighans large earthquake problem: Difference between revisions
m
→{{header|Amazing Hopper}}
No edit summary |
|||
Line 357:
WHEN( IS-NOT-LENGTH-ZERO? ){
WHEN( GT?( GET(Event), 6 ) ){
PRNL( [1:2] CGET(Event),TAB,TAB, [3] GET(Event) )
}
}
Line 384:
<pre>
$ hopper fl/evento.flw
8/27/1883 Krakatoa
5/18/1980 MountStHelens
1/25/4567 EdgeCase3
$
</pre>
|