From d5c6caeb0b34d4b83284cd6eed0d89f233748861 Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Mon, 7 Dec 2020 14:22:17 +0000
Subject: [PATCH] Some tidying
---
advent25/src/advent25.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/advent25/src/advent25.hs b/advent25/src/advent25.hs
index c3c0c1f..126fbc8 100644
--- a/advent25/src/advent25.hs
+++ b/advent25/src/advent25.hs
@@ -31,7 +31,8 @@ runPreamble mem =
encodeCommands :: [String] -> [Integer]
-encodeCommands cmds = map (fromIntegral . ord) $ concat $ map (++ "\n") cmds
+-- encodeCommands cmds = map (fromIntegral . ord) $ concat $ map (++ "\n") cmds
+encodeCommands = map (fromIntegral . ord) . concat . map (++ "\n")
decodeOutput :: [Integer] -> String
decodeOutput = map (chr . fromIntegral)
@@ -46,7 +47,6 @@ powerList :: [a] -> [[a]]
powerList [] = [[]]
powerList (x:xs) = powerList xs ++ map (x:) (powerList xs)
-
passSecurity :: Machine -> [String] -> [String] -> String
passSecurity machine instructions items =
"You keep: " ++ (intercalate ", " keeps) ++ "\n\n" ++ (attemptSecurity machine instructions validDropset)
--
2.43.0