natty
/
aoc23
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Totally unnecessary applicative obfuscation

This commit is contained in:
Natty 2023-12-09 05:00:26 +01:00
parent c7e1a48a71
commit bb750090e9
Signed by: natty
GPG Key ID: BF6CB659ADEE60EC
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
day08a/src/Main.hs
View File

@ -9,7 +9,7 @@ parseMove 'L' = fst
parseMove 'R' = snd
parseNode :: String -> (String, (String, String))
parseNode a = (take 3 a, (take 3 . drop 7 $ a, take 3 . drop 12 $ a))
parseNode = (,) . take 3 <*> ((,) . take 3 . drop 7 <*> take 3 . drop 12)
main :: IO ()
main = do

2
day08b/src/Main.hs
View File

@ -9,7 +9,7 @@ parseMove 'L' = fst
parseMove 'R' = snd
parseNode :: String -> (String, (String, String))
parseNode a = (take 3 a, (take 3 . drop 7 $ a, take 3 . drop 12 $ a))
parseNode = (,) . take 3 <*> ((,) . take 3 . drop 7 <*> take 3 . drop 12)
main :: IO ()
main = do