Data commit

Task/Disarium-numbers/Miranda/disarium-numbers.miranda

@@ -0,0 +1,18 @@
+main :: [sys_message]
+main = [Stdout (show (take 18 disaria)), Stdout "\n"]
+
+disaria :: [num]
+disaria = filter disarium [0..]
+
+disarium :: num->bool
+disarium n = n = sum (zipWith (^) (digits n) [1..])
+
+digits :: num->[num]
+digits 0 = [0]
+digits n = reverse (digits' n)
+           where digits' 0 = []
+                 digits' n = (n mod 10) : digits' (n div 10)
+
+zipWith :: (* -> ** -> ***) -> [*] -> [**] -> [***]
+zipWith f x y = map f' (zip2 x y)
+                where f' (x,y) = f x y