UNPKG
lean4-code-actions
Version:
latest (1.1.32)
1.1.32
Refactorings and snippets for Lean 4
lean4-code-actions
/
libs
/
utils
/
Evolver
/
evolveTimes.ts
10 lines
(8 loc)
•
219 B
text/typescript
View Raw
1
2
3
4
5
6
7
8
9
10
import
{
Evolver
}
from
'./index'
export
const
evolveTimes
= (
max
:
number
) => <A>
(
evolve
:
Evolver
<A>
) =>
(
a
: A
) =>
{
let
result = a
for
(
let
i =
0
; i < max; i++) { result =
evolve
(result) }
return
result }