September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Semordnilap/Haskell/semordnilap.hs
+++ b/Task/Semordnilap/Haskell/semordnilap.hs
@ -14,4 +14,4 @@ main = do
  s <- readFile "unixdict.txt"
  let l = semordnilaps (lines s)
  print $ length l
-  mapM_ (print . ((,) <*> reverse)) $ take 5 l
+  mapM_ (print . ((,) <*> reverse)) $ take 5 (filter ((4 <) . length) l)