diff options
Diffstat (limited to 'elm/day1.elm')
| -rw-r--r-- | elm/day1.elm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/elm/day1.elm b/elm/day1.elm new file mode 100644 index 0000000..dd63919 --- /dev/null +++ b/elm/day1.elm @@ -0,0 +1,26 @@ +product = foldl (*) 1 + +xFields = map .x + +multiply x y = case y of + 0 -> 0 + y -> y + multiply x (y-1) + +type Person = { name : String, age : Int, + address : { calle : String, pais : String } } + +yo : Person +yo = { name = "Guillermo", age = 23, + address = { calle = "Arroyo Fontarrón", pais = "España" } } + +tu : Person +tu = { name = "Paco", age = 15, + address = { calle = "Por allí", pais = "Congo" } } + +persons = [yo, tu] + +olderThan16 = filter ((>) 16 . .age) + +olderThan16_safe = filter (\p -> case p.age of + Nothing -> False + Just age -> age > 16)
\ No newline at end of file |