Kernighans large earthquake problem: Difference between revisions
Kernighans large earthquake problem (view source)
Revision as of 16:51, 27 August 2020
, 3 years ago→{{header|Kotlin}}
(Added Wren) |
|||
Line 766:
│ 2 │ 1980-05-18T00:00:00 │ MountStHelens │ 7.6 │
</pre>
=={{header|Klingphix}}==
<lang Klingphix>arg pop nip len dup
( [get nip]
[drop drop "data.txt"]
) if
%f
dup "r" fopen >f
<f 0 less ( [drop "Could not open '" print print "' for reading" print -1 end ] [drop] ) if
[dup split 3 get tonum 6 great ( [drop print nl] [drop drop] ) if]
[<f fgets dup -1 nequal]
while
drop
<f fclose
"End " input</lang>
=={{header|Kotlin}}==
| |||