eeef65b505
(for) is restored to clojure-like flatness.
(with) can be used without the nested list if you don't care about the
name.
Tests and examples updated.
12 lines
332 B
Hy
12 lines
332 B
Hy
(import [concurrent.futures [ThreadPoolExecutor as-completed]]
|
|
[random [randint]]
|
|
[sh [sleep]])
|
|
|
|
(defn task-to-do [] (sleep (randint 1 5)))
|
|
|
|
|
|
(with-as (ThreadPoolExecutor 10) executor
|
|
(setv jobs (list-comp (.submit executor task-to-do) (x (range 0 10))))
|
|
(for [future (as-completed jobs)]
|
|
(.result future)))
|