Kernighans large earthquake problem: Difference between revisions
Kernighans large earthquake problem en FreeBASIC
Drkameleon (talk | contribs) |
(Kernighans large earthquake problem en FreeBASIC) |
||
Line 937:
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}}==
| |||