2019-01-08 23:59:55 -05:00
|
|
|
(module
|
|
|
|
|
(func $even (export "even") (param $n i32) (result i32)
|
2019-08-04 12:42:20 -06:00
|
|
|
(if (result i32) (i32.eq (local.get $n) (i32.const 0))
|
2019-01-08 23:59:55 -05:00
|
|
|
(then (i32.const 1))
|
2019-08-04 12:42:20 -06:00
|
|
|
(else (call $odd (i32.sub (local.get $n) (i32.const 1))))
|
2019-01-08 23:59:55 -05:00
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
(func $odd (export "odd") (param $n i32) (result i32)
|
2019-08-04 12:42:20 -06:00
|
|
|
(if (result i32) (i32.eq (local.get $n) (i32.const 0))
|
2019-01-08 23:59:55 -05:00
|
|
|
(then (i32.const 0))
|
2019-08-04 12:42:20 -06:00
|
|
|
(else (call $even (i32.sub (local.get $n) (i32.const 1))))
|
2019-01-08 23:59:55 -05:00
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
(assert_return (invoke "even" (i32.const 13)) (i32.const 0))
|
|
|
|
|
(assert_return (invoke "even" (i32.const 20)) (i32.const 1))
|
|
|
|
|
(assert_return (invoke "odd" (i32.const 13)) (i32.const 1))
|
|
|
|
|
(assert_return (invoke "odd" (i32.const 20)) (i32.const 0))
|
