Kernighans large earthquake problem: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,352: | Line 1,352: | ||
While not eof(#F) |
While not eof(#F) |
||
Line Input #f, part$ |
Line Input #f, part$ |
||
if val(mid$(part$,30))>6 then print part$ |
REM if val(mid$(part$,30))>6 then print part$ |
||
if val(mid$(part$,rinstr(rtrim$(part$)," ")))>6 then print part$ |
|||
End While |
End While |
||
Close #F |
Close #F |
||
} |
} |
||
Find_Magnitude |
Find_Magnitude |
||
</lang> |
</lang> |
||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
Line 1,364: | Line 1,369: | ||
1/25/4567 EdgeCase3 6.1 |
1/25/4567 EdgeCase3 6.1 |
||
</pre> |
</pre> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
=={{header|Mathematica}} / {{header|Wolfram Language}}== |