[Elm] Día 1

2 files changed, 28 insertions, 0 deletions

diff --git a/elm/.gitignore b/elm/.gitignore
new file mode 100644
index 0000000..ab307b2
--- /dev/null
+++ b/elm/.gitignore
@@ -0,0 +1,2 @@
+build
+cache
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