this repo has no description
1module Main where
2
3import Data.List.Split
4import Lib
5
6main :: IO ()
7main = do
8 inputStr <- readFile "input.txt"
9 let input = splitOn "," $ init inputStr
10 -- finalPosition = processMoves input
11 -- distance = distanceFromZero finalPosition -- part 1
12 furthest = furthestPointInJourney input
13 furthestDistance = distanceFromZero furthest -- part 2
14 in print $ furthestDistance