AL
Size: a a a
AL
AL
PP
PP
IG
KR
AC
AC
Н
PP
Н
PP
PP
PP
YK
IG
AC
AC
AC
MK
(t/deftest loom
(let [add-rnd (fn [x] (+ x (! (effect :random))))
ef (fn [n]
(->> (range n)
(mapv add-rnd))) ;; lazy is not supported
continuation (e/continuation ef)]
(t/testing "script"
(let [script [{:args [3]}
{:effect [:random]
:coeffect 0.1}
{:effect [:random]
:coeffect 0.2}
{:effect [:random]
:coeffect 0.3}
{:return [0.1 1.2 2.3]}]]
(script/test continuation script)))))