Browse Source

removed debug code

mistress
Agatha Lovelace 2 months ago
parent
commit
6b14d29c79
  1. 4
      Day2.hs
  2. 6
      Day2_1.hs

4
Day2.hs

@ -9,7 +9,7 @@ import Data.Text (splitOn, Text, unpack, pack)
data Submarine = Submarine {
horizontal :: Int
, depth :: Int
} deriving Show
}
type Movement = (String, Int)
@ -40,4 +40,4 @@ main = do
print $ horizontal sub * depth sub
hClose input
hClose input

6
Day2_1.hs

@ -5,14 +5,12 @@ module Day2_1 where
import System.IO (openFile, IOMode (ReadMode), hClose, hGetContents)
import Data.Text (splitOn, Text, unpack, pack)
import Data.List (mapAccumL)
import Prelude hiding ((++))
data Submarine = Submarine {
horizontal :: Int
, depth :: Int
, aim :: Int
} deriving Show
}
type Movement = (String, Int)
@ -40,4 +38,4 @@ main = do
print $ horizontal sub * depth sub
hClose input
hClose input
Loading…
Cancel
Save