toki/advent-of-code-2024
1
0
Fork 0
Code Issues Pull requests Activity

style: decrease indentation on TTImp quote

Browse source
This commit is contained in:
Kiana Sheibani 2024-12-05 06:06:16 -05:00
parent b37d5f2dd4
commit 07b830672b
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/Data/Problem.idr
View file

@ -82,22 +82,24 @@ public export
fetchSolution : Problem -> Elab (String -> String)
fetchSolution pr = do
let name = solutionName pr
check `(\s => show (~(IVar EmptyFC name) s))
check `(\s => Prelude.show (~(IVar EmptyFC name) s))
<|> fail "\{show name} does not exist as a valid solution"
public export
fetchAllSols : (latest : Problem) -> Elab (SortedMap Problem (String -> String))
fetchAllSols pr =
let prs = allProblems pr
list = foldr (\pr,tt => `(Prelude.(::)
(Builtin.MkPair
(Data.Problem.Pr
(Prelude.fromInteger
~(IPrimVal EmptyFC $ BI $ natToInteger pr.day))
~(case pr.part of
Part1 => `(Data.Problem.Part1)
Part2 => `(Data.Problem.Part2)))
(\s => show (~(IVar EmptyFC $ solutionName pr) s)))
~(tt))) `(Prelude.Nil) prs
list = foldr
(\pr,tt =>
`(Prelude.(::)
(Builtin.MkPair
(Data.Problem.Pr
(Prelude.fromInteger
~(IPrimVal EmptyFC $ BI $ natToInteger pr.day))
~(case pr.part of
Part1 => `(Data.Problem.Part1)
Part2 => `(Data.Problem.Part2)))
(\s => Prelude.show (~(IVar EmptyFC $ solutionName pr) s)))
~(tt))) `(Prelude.Nil) prs
ttimp = `(Data.SortedMap.fromList ~(list))
in check ttimp