Multiple async tasks cancellation

task_cancellation.jl

function foo()
    ts = Task[]
    begin
        for i in 1:20
            t = @task begin
                sleep(i/10)
                println(i)
                @assert i != 5
            end
            push!(ts, t)
        end
        foreach(schedule, ts)
        ht = @async begin
            while true
                all(istaskdone, ts) && break
                if any(istaskfailed, ts)
                    for t in ts
                        istaskdone(t) && continue
                        istaskfailed(t) && continue
                        @async try Base.throwto(t, InterruptException()) catch end
                        yield()
                    end
                    break
                end
                yield()
            end
        end
        wait(ht)
    end
end