sorceress
/
aoc2021
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

removed debug code

This commit is contained in:
Agatha Lovelace 2021-12-02 21:35:45 +02:00
parent 87f0c0d9d1
commit 6b14d29c79
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Day2.hs
View File

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

6
Day2_1.hs
View File

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