slight day 6 cleanup

2022-12-06 10:02:54 +03:00 · 2022-12-06 10:02:54 +03:00 · 366b3950b3
parent 04830003a3
commit 366b3950b3
2 changed files with 2 additions and 4 deletions
--- a/6-a.hs
+++ b/6-a.hs
@ -4,6 +4,5 @@ markerLength = 4

 main = interact $
  show
-  . (+ 1)
-  . (!! 0)
+  . (+ 1) . head
  . (\l -> filter (\i -> markerLength == length (nub $ map (l !!) [i - (markerLength - 1) .. i])) [(markerLength - 1)..])
--- a/6-b.hs
+++ b/6-b.hs
@ -5,6 +5,5 @@ markerLength = 14

 main = interact $
  show
-  . (+ 1)
-  . (!! 0)
+  . (+ 1) . head
  . (\l -> filter (\i -> markerLength == length (nub $ map (l !!) [i - (markerLength - 1) .. i])) [(markerLength - 1)..])