Data commit

Task/Repeat/Lean/repeat-1.lean

@@ -0,0 +1,6 @@
+def repeat : ℕ → (ℕ → string) → string
+  | 0 f       := "done"
+  | (n + 1) f :=  (f n) ++ (repeat n f)
+
+
+#eval repeat 5 $ λ b : ℕ , "me "

Task/Repeat/Lean/repeat-2.lean

@@ -0,0 +1,9 @@
+def repeatf (f : Nat -> String) (n : Nat) : String :=
+  match n with
+  | 0 => "."
+  | (k + 1) => (f k) ++ (repeatf f k)
+
+def example1 : String :=
+  repeatf (fun (x : Nat) => toString (x) ++ " ") (10)
+
+#eval example1