Kernighans large earthquake problem: Difference between revisions
Content added Content deleted
(→{{header|Haskell}}: Added a first Haskell draft) |
|||
Line 292:
5/18/1980 MountStHelens 7.6
</pre>
=={{header|Haskell}}==
<lang haskell>import qualified Data.ByteString.Lazy.Char8 as C
main :: IO ()
main = do
cs <- C.readFile "data.txt"
mapM_ print $
concatMap
(\x ->
[ x
| 6 < (read (last $ words x) :: Float) ]) $
C.unpack <$> C.lines cs</lang>
{{Out}}
<pre>"8/27/1883 Krakatoa 8.8"
"5/18/1980 MountStHelens 7.6"</pre>
=={{header|Lua}}==
|