20 lines
352 B
Agda
20 lines
352 B
Agda
module Aoc
|
|
|
|
import Prelude
|
|
|
|
nums : String → List Int
|
|
nums s = map stringToInt $ filter (_/=_ "") $ split (trim s) " "
|
|
|
|
isDigit : Char -> Bool
|
|
isDigit '0' = True
|
|
isDigit '1' = True
|
|
isDigit '2' = True
|
|
isDigit '3' = True
|
|
isDigit '4' = True
|
|
isDigit '5' = True
|
|
isDigit '6' = True
|
|
isDigit '7' = True
|
|
isDigit '8' = True
|
|
isDigit '9' = True
|
|
isDigit _ = False
|