20 lines
463 B
Text
20 lines
463 B
Text
def f : List Nat → IO Unit :=
|
|
fun (xs : List Nat) =>
|
|
List.forM
|
|
(fun (x : Nat) =>
|
|
if x == 0 = true then
|
|
do
|
|
IO.println "foo"
|
|
IO.println "zero"
|
|
else
|
|
if x % 2 == 0 = true then
|
|
do
|
|
IO.println x
|
|
IO.println "even"
|
|
else
|
|
do
|
|
IO.println x
|
|
IO.println "odd")
|
|
xs
|
|
if true = true then 1 else 0 : Nat
|
|
if h : true = true then 1 else 0 : Nat
|