/ nc_files / factorial.ngc
factorial.ngc
 1  ; recursive function example
 2  ; factorial
 3  o<factorial> sub
 4  o<factorialif> if [[#1] EQ 0]
 5  o<factorial> 	  return [1]
 6  o<factorialif> else
 7  o<factorial>      call [[#1] - 1]
 8  o<factorial>      return  [#<_value> * #1]
 9  o<factorialif> endif
10  o<factorial> endsub
11  m2