File: fact.apoo

package info (click to toggle)
apoo 2.1-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 444 kB
  • ctags: 264
  • sloc: python: 1,954; perl: 67; makefile: 56; sh: 4
file content (25 lines) | stat: -rw-r--r-- 209 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#
#	fact(n) if n==0 then 1 else fact(n-1)*n
#
n:	const	5
fn:	mem	1
	load n	r1
	jsr fact
	store r1	fn
	halt

fact:	jzero r1	fim
	push r1
	dec r1
	jsr fact
	pop  r2
	mul  r2 r1
	rtn
fim:	loadn 1 r1
	rtn