site/samples/fac.fs


1
2
3
4
5
6
7
8
9
10
11
12

: fac ( n -- n )
	dup		( n n )
	1 > if		( n flag )
		dup	( n n )
		1 -		( n n-1 )
		fac		( n fac-n )
		*		( n )
	then		( n )
;

5 fac
drop