Kernighans large earthquake problem: Difference between revisions
Content added Content deleted
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}}==
|