@@ -7,6 +7,6 @@ k = \x -> \y -> x
7iterate :: forall a. (Number) -> ((a) -> a) -> (a) -> a
7iterate :: forall a. (Number) -> ((a) -> a) -> (a) -> a
8iterate = \n -> \f -> \a -> do
8iterate = \n -> \f -> \a -> do
9 var result = a
9 var result = a
10− for (var i = 0; i < n; i = i + 1):
10+ for i <- 0 until n:
11 result = f(result)
11 result = f(result)
12 return result
12 return result