17 lines
273 B
Text
17 lines
273 B
Text
|
(module
|
||
|
|
(func $fac (param f64) (result f64)
|
||
|
|
get_local 0
|
||
|
|
f64.const 1
|
||
|
|
f64.lt
|
||
|
|
if (result f64)
|
||
|
|
f64.const 1
|
||
|
|
else
|
||
|
|
get_local 0
|
||
|
|
get_local 0
|
||
|
|
f64.const 1
|
||
|
|
f64.sub
|
||
|
|
call $fac
|
||
|
|
f64.mul
|
||
|
|
end)
|
||
|
|
(export "fac" (func $fac)))
|