20 lines
508 B
Text
20 lines
508 B
Text
def g (x : nat) : nat :=
|
|
dbg_trace ("g: " ++ to_string x) $ λ _,
|
|
x + 1
|
|
|
|
def f1 (x : nat) : nat :=
|
|
dbg_sleep 1000 $ λ _,
|
|
dbg_trace ("f1: " ++ to_string x) $ λ _,
|
|
g (x + 1)
|
|
|
|
def f2 (x : nat) : nat :=
|
|
dbg_sleep 100 $ λ _,
|
|
dbg_trace ("f2: " ++ to_string x) $ λ _,
|
|
g x
|
|
|
|
def main (xs : list string) : io uint32 :=
|
|
let t1 := task.mk $ (λ _, f1 xs.head.to_nat) in
|
|
let t2 := task.mk $ (λ _, f2 xs.head.to_nat) in
|
|
dbg_sleep 1000 $ λ _,
|
|
io.println' (to_string t1.get ++ " " ++ to_string t2.get) *>
|
|
pure 0
|