From a792a40d6c4b7cf09faa9fb5d04d27f71d2a49a7 Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Tue, 13 Dec 2016 14:21:51 +0000 Subject: [PATCH] Now using fromMaybe --- advent13.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/advent13.hs b/advent13.hs index 94669fd..719bc6a 100644 --- a/advent13.hs +++ b/advent13.hs @@ -1,5 +1,6 @@ import Data.List ((\\), nub, sortOn) import Data.Bits (popCount) +import Data.Maybe (fromMaybe) type Pos = (Int, Int) @@ -14,19 +15,19 @@ main = do part1 :: IO () -part1 = print $ length $ tail $ extractJust $ aStar [[(1, 1)]] [] +part1 = print $ length $ tail $ fromMaybe [] $ aStar [[(1, 1)]] [] part2 :: IO () part2 = do print $ length $ tail $ edl 50 [[(1, 1)]] [] putStrLn $ showRoomR 30 25 $ edl 50 [[(1, 1)]] [] -extractJust :: Maybe [a] -> [a] -extractJust Nothing = [] -extractJust (Just x) = x - +-- extractJust :: Maybe [a] -> [a] +-- extractJust Nothing = [] +-- extractJust (Just x) = x + isWall :: Int -> Int -> Bool -isWall x y = (popCount n) `mod` 2 == 1 +isWall x y = odd $ popCount n where n = x*x + 3*x + 2*x*y + y + y*y + seed -- 2.34.1