Kernighans large earthquake problem: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) |
(Kernighans large earthquake problem en FreeBASIC) |
||
| Line 937: | Line 937: | ||
lines [ "\s" split last string>number 6 > ] filter .</lang> |
lines [ "\s" split last string>number 6 > ] filter .</lang> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic> |
|||
Dim As Long f |
|||
f = Freefile |
|||
Dim As String nomArchivo = "data.txt" |
|||
If Open(nomArchivo For Input As #f) Then |
|||
Print "ERROR: No se pudo abrir " ; nomArchivo |
|||
Sleep : End |
|||
End If |
|||
Dim As String tok(), lin |
|||
Do While Not Eof(f) |
|||
Line Input #f, lin |
|||
If Val(Right(lin, 3)) > 6 Then Print lin |
|||
Loop |
|||
Close #f |
|||
Sleep |
|||
</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |
||