Idris/advent
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Year 2015 Day 11 Part 2

Browse source
This commit is contained in:
Nathan McCarty 2025-01-23 01:11:21 -05:00
parent d84f361577
commit 49525e43a1
1 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/Years/Y2015/Day11.md
View file

@ -183,8 +183,8 @@ containsPairs xs = length (nub $ pairs (reverse xs) []) >= 2
Combine our password criteria into one function
```idris
part1Critera : Vect n PasswordChar -> Bool
part1Critera xs = incrimentingChars xs && noInvalidChars xs && containsPairs xs
passwordCriteria : Vect n PasswordChar -> Bool
passwordCriteria xs = incrimentingChars xs && noInvalidChars xs && containsPairs xs
```
### Find the next password
@ -207,19 +207,30 @@ findNextPassword f password =
### Part 1
```idris
part1 : Eff (PartEff String) (String, ())
part1 : Eff (PartEff String) (String, Password)
part1 = do
input <- map trim $ askAt "input"
password <- parsePassword input
info "Starting password: \{show password} -> \{passwordToString password}"
let next_password = findNextPassword part1Critera password
pure (passwordToString next_password, ())
let next_password = findNextPassword passwordCriteria password
pure (passwordToString next_password, next_password)
```
### Part 2
```idris
part2 : Password -> Eff (PartEff String) String
part2 password = do
info
"Second starting password: \{show password} -> \{passwordToString password}"
let next_password = findNextPassword passwordCriteria password
pure $ passwordToString next_password
```
<!-- idris
public export
day11 : Day
day11 = First 11 part1
day11 = Both 11 part1 part2
-->
## References