Kernighans large earthquake problem: Difference between revisions
Content added Content deleted
(Emacs Lisp: Avoid need non-portable shebang) |
No edit summary |
||
Line 1,336: | Line 1,336: | ||
if tonumber(magnitude) > 6 then print(line) end |
if tonumber(magnitude) > 6 then print(line) end |
||
end</lang> |
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}}== |
=={{header|Mathematica}} / {{header|Wolfram Language}}== |