Kernighans large earthquake problem: Difference between revisions
Kernighans large earthquake problem (view source)
Revision as of 22:48, 15 February 2022
, 2 years ago→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 1,352:
While not eof(#F)
Line Input #f, part$
REM if val(mid$(part$,30))>6 then print part$
if val(mid$(part$,rinstr(rtrim$(part$)," ")))>6 then print part$
End While
Close #F
}
Find_Magnitude
</lang>
{{out}}
<pre>
Line 1,364 ⟶ 1,369:
1/25/4567 EdgeCase3 6.1
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
|