20 lines
356 B
Plaintext
20 lines
356 B
Plaintext
|
;; SPDX-FileCopyrightText: 2025 orangerot <me@orangerot>
|
||
|
|
;;
|
||
|
|
;; SPDX-License-Identifier: GPL-3.0
|
||
|
|
|
||
|
|
(module
|
||
|
|
(func $fac (export "fac") (param f64) (result f64)
|
||
|
|
local.get 0
|
||
|
|
f64.const 1
|
||
|
|
f64.lt
|
||
|
|
if (result f64)
|
||
|
|
f64.const 1
|
||
|
|
else
|
||
|
|
local.get 0
|
||
|
|
local.get 0
|
||
|
|
f64.const 1
|
||
|
|
f64.sub
|
||
|
|
call $fac
|
||
|
|
f64.mul
|
||
|
|
end))
|