retry.ts

type IO<A> = () => Promise<A>

function retry<A>(x: IO<A>, p: (a: A) => Boolean, retries: number): IO<A> {
    return () => {
        if (retries <= 0) {
            return x()
        }
        return x().then(xx => {
            if (p(xx)) {
                return Promise.resolve(xx)
            } else {
                return retry(x, p, retries - 1)()
            }
        })

    }
}

retry(() => {
    console.log(".")
    return fetch("https://httpbin.org/delay/1")
}, () => false, 5)()