Kernighans large earthquake problem: Difference between revisions
Kernighans large earthquake problem (view source)
Revision as of 22:36, 15 February 2022
, 2 years agono edit summary
(Emacs Lisp: Avoid need non-portable shebang) |
No edit summary |
||
Line 1,336:
if tonumber(magnitude) > 6 then print(line) end
end</lang>
=={{header|M2000 Interpreter}}==
<lang M2000 Interpreter>
Module Find_Magnitude {
data$={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
}
Open "data.txt" for output as F
Print #F, data$;
Close #F
Open "data.txt" for input as F
While not eof(#F)
Line Input #f, part$
if val(mid$(part$,30))>6 then print part$
End While
Close #F
}
Find_Magnitude
</lang>
{{out}}
<pre>
8/27/1883 Krakatoa 8.8
5/18/1980 MountStHelens 7.6
1/25/4567 EdgeCase3 6.1
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
|