12 lines
437 B
Text
12 lines
437 B
Text
def run1 (i : Nat) (n : Nat) (xs : List Nat) : Nat :=
|
|
n.repeat (λ _ r,
|
|
let s := (">> [" ++ toString i ++ "] " ++ toString r) in
|
|
xs.foldl (+) (r + s.length))
|
|
0
|
|
|
|
def main (xs : List String) : IO UInt32 :=
|
|
let ys := (List.repeat 1 xs.head.toNat) in
|
|
let ts : List (Task Nat) := (List.iota 10).map (λ i, Task.mk $ λ _, run1 (i+1) xs.head.toNat ys) in
|
|
let ns : List Nat := ts.map Task.get in
|
|
IO.println (">> " ++ toString ns) *>
|
|
pure 0
|