RosettaCodeData/Task/Factorial/WebAssembly/factorial-1.wasm

18 lines
288 B
Plaintext

(module
;; recursive
(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)))