xref: /aosp_15_r20/external/apache-commons-bcel/src/examples/Mini/fac.mini (revision 0c56280ab0842982c46a149f7b9eaa497e31e292)
1-- Compute factorial
2
3FUN fac (n) = 	IF n == 0 THEN 1
4		ELSE n * fac(n - 1)
5		FI
6
7FUN main()  = 	LET
8		  n = READ()
9		IN
10		  WRITE(fac(n))
11