Rosetta Code

Kernighans large earthquake problem: Difference between revisions

Page Discussion

Kernighans large earthquake problem (view source)

Revision as of 16:49, 22 September 2018

18 bytes removed ,  5 years ago
m
→‎{{header|Haskell}}
Line 301:
cs <- C.readFile "data.txt"
mapM_ print $
concatMapC.lines cs >>=
(\x ->
[ x
| 6 < (read (last (C.unpack <$> C.words x)) :: Float) ]) $</lang>
C.lines cs</lang>
{{Out}}
<pre>"8/27/1883 Krakatoa 8.8"
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/280966"