diff options
Diffstat (limited to '2019/nim/day04.nim')
-rw-r--r-- | 2019/nim/day04.nim | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/2019/nim/day04.nim b/2019/nim/day04.nim new file mode 100644 index 0000000..eb6d933 --- /dev/null +++ b/2019/nim/day04.nim @@ -0,0 +1,37 @@ +# Day Four: Secure Container +import os, strutils, sequtils + +let input: string = paramStr(1) +let bounds: seq[int] = map(split(strip(readFile(input)), '-'), parseInt) +var valid, details: int = 0 + +proc criteria(password: int): bool = + var password: string = $password + for digit in 0 .. 4: + if password[digit] > password[digit+1]: + return false + for digit in 0 .. 4: + if password[digit] == password[digit+1]: + return true + return false + +proc extracriteria(password: int): bool = + var password: string = $password + for digit in 0 .. 4: + if password[digit] > password[digit+1]: + return false + for digit in 0 .. 4: + if password[digit] == password[digit+1]: + if digit == 0 or password[digit] != password[digit-1]: + if digit == 4 or password[digit] != password[digit+2]: + return true + return false + +for password in bounds[0] .. bounds[1]: + if criteria(password): inc(valid) + +for password in bounds[0] .. bounds[1]: + if extracriteria(password): inc(details) + +echo valid +echo details |