15 lines
449 B
Text
15 lines
449 B
Text
def check (b : Bool) : IO Unit := do
|
|
unless b do IO.println "failed"
|
|
|
|
|
|
def main : IO Unit :=
|
|
let a1 := [2, 3, 5].toArray;
|
|
let a2 := [4, 7, 9].toArray;
|
|
let a3 := [4, 7, 8].toArray;
|
|
do
|
|
check (Array.isEqv a1 a2 (fun v w => v % 2 == w % 2));
|
|
check (!Array.isEqv a1 a3 (fun v w => v % 2 == w % 2));
|
|
check (a1 ++ a2 == [2, 3, 5, 4, 7, 9].toArray);
|
|
check (a1.any (fun a => a > 4));
|
|
check (!a1.any (fun a => a >10));
|
|
check (a1.all (fun a => a < 10))
|