From: Neil Smith <NeilNjae@users.noreply.github.com>
Date: Sun, 25 Dec 2022 16:49:44 +0000 (+0000)
Subject: Point-free
X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=2b91cfef52c969a7d534ca79b8d01e89e19c7e6f;p=advent-of-code-22.git

Point-free
---

diff --git a/advent25/Main.hs b/advent25/Main.hs
index 39ba5c1..f6a284f 100644
--- a/advent25/Main.hs
+++ b/advent25/Main.hs
@@ -25,7 +25,7 @@ snafuValue '=' = -2
 snafuValue _ = error "Illegal digit in read"
 
 showSnafu :: Int -> String
-showSnafu n = reverse $ packSnafu 0 $ toBase5R n
+showSnafu = reverse . (packSnafu 0) . toBase5R
 
 toBase5R :: Int -> [Int]
 toBase5R 0 = []