Kernighans large earthquake problem: Difference between revisions
Content added Content deleted
(→{{header|Haskell}}: Added a first Haskell draft) |
|||
| Line 292: | Line 292: | ||
5/18/1980 MountStHelens 7.6 |
5/18/1980 MountStHelens 7.6 |
||
</pre> |
</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}}== |
=={{header|Lua}}== |
||