shithub: mc

ref: 4665f57c5a86ade9ef524b3d7380f6fcd1abb0ff
dir: /bench/bigfactorial.myr/

View raw version 
use std

const N = 600
const main = {
	var i
	for i = 0; i < N; i++
		std.bigfree(bigfact(i))
	;;
}

const bigfact = {n
	var i
	var x, y

	if n == 0
		x = std.mkbigint(1)
	else
		x = std.mkbigint(n)
		for i = n-1; i > 0; i--
			y = std.mkbigint(i)
			std.bigmul(x, y)
			std.bigfree(y)
		;;
	;;
	-> x
}