Julia/AdventOfCode
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added Haskell Implementations and changed directory structure

Browse source
This commit is contained in:
Julia Lange 2021-12-08 15:34:05 -08:00
parent 9f40c27eb9
commit cb9dee889b
Signed by: Julia
SSH key fingerprint: SHA256:KI8YxpkPRbnDRkXPgCuQCVz181++Vy7NAvmQj8alOhM
14 changed files with 392 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Haskell/2021/06/day6.hs Normal file
View file

@ -0,0 +1,18 @@
fishGrowth :: [Integer] -> [Integer]
fishGrowth [] = []
fishGrowth (x:xs)
| x == 0 = 6 : 8 : fishGrowth xs
| otherwise = (x-1) : fishGrowth xs
runFishGrowth :: [Integer] -> Int -> [Integer]
runFishGrowth ls 0 = ls
runFishGrowth ls x = runFishGrowth (fishGrowth ls) (x-1)
fishGrowth' :: [(Int, Integer)] -> Int -> Int -> [(Int, Integer)]
fishGrowth' [] new _ = (8,x) : []
fishGrowth' (stage,num):xs new reset
| stage == 0 = fishGrowth' xs new num
| stage == 7 = (6, num + reset) : fishGrowth' xs new 0
| otherwise = ((stage-1), num) : fishGrowth' xs new 0
input = [1,2,1,3,2,1,1,5,1,4,1,2,1,4,3,3,5,1,1,3,5,3,4,5,5,4,3,1,1,4,3,1,5,2,5,2,4,1,1,1,1,1,1,1,4,1,4,4,4,1,4,4,1,4,2,1,1,1,1,3,5,4,3,3,5,4,1,3,1,1,2,1,1,1,4,1,2,5,2,3,1,1,1,2,1,5,1,1,1,4,4,4,1,5,1,2,3,2,2,2,1,1,4,3,1,4,4,2,1,1,5,1,1,1,3,1,2,1,1,1,1,4,5,5,2,3,4,2,1,1,1,2,1,1,5,5,3,5,4,3,1,3,1,1,5,1,1,4,2,1,3,1,1,4,3,1,5,1,1,3,4,2,2,1,1,2,1,1,2,1,3,2,3,1,4,5,1,1,4,3,3,1,1,2,2,1,5,2,1,3,4,5,4,5,5,4,3,1,5,1,1,1,4,4,3,2,5,2,1,4,3,5,1,3,5,1,3,3,1,1,1,2,5,3,1,1,3,1,1,1,2,1,5,1,5,1,3,1,1,5,4,3,3,2,2,1,1,3,4,1,1,1,1,4,1,3,1,5,1,1,3,1,1,1,1,2,2,4,4,4,1,2,5,5,2,2,4,1,1,4,2,1,1,5,1,5,3,5,4,5,3,1,1,1,2,3,1,2,1,1]