From 2b91cfef52c969a7d534ca79b8d01e89e19c7e6f Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Sun, 25 Dec 2022 16:49:44 +0000 Subject: [PATCH] Point-free --- advent25/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 = [] -- 2.34.1