Skip to content

Instantly share code, notes, and snippets.

@tarquin-the-brave

tarquin-the-brave/main.hs

Created May 12, 2020 12:43
Show Gist options
  • Save tarquin-the-brave/ddbb1146480062d73ecc497c6f803e4b to your computer and use it in GitHub Desktop.
Save tarquin-the-brave/ddbb1146480062d73ecc497c6f803e4b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
main.hs
main = do
contents <- fmap lines . readFile $ "input.txt"
let orbits = fmap parseOrbit contents
let myForest = unfoldForest (forestBuilder orbits) (roots orbits)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment