Kernighans large earthquake problem: Difference between revisions

Content added Content deleted

Inline

@@ Line 304: / Line 304: @@
       (\x ->
           [ x
-          | 6 < (read (last $ words x) :: Float) ]) $
+          | 6 < (read (last (C.unpack <$> C.words x)) :: Float) ]) $
-    C.unpack <$> C.lines cs</lang>
+    C.lines cs</lang>
 {{Out}}
 <pre>"8/27/1883    Krakatoa            8.8"