git @ Cat's Eye Technologies Illgol-Grand-Mal / master 4. Open Sores Illgol## / prj / fact.ill
master

Tree @master (Download .tar.gz)

fact.ill @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
NB fact.ill
NB (c)2001 Cat's Eye Technologies.
NB All rights reserved.  All liability disclaimed.
NB See the file COPING for license information.

*fact = { if #0 > 1 yield #0 * call fact(#0 - 1) else yield 1 };

*a = 1;
for a = 1 to 7
{
  print stu(call fact(a)), EoL;
};

FIN