File: rectester.sing

package info (click to toggle)
singular 1%3A4.1.1-p2%2Bds-4
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 35,856 kB
  • sloc: cpp: 288,280; ansic: 17,387; lisp: 4,242; yacc: 1,654; python: 1,608; makefile: 1,424; lex: 1,387; perl: 632; sh: 567; xml: 182
file content (13 lines) | stat: -rw-r--r-- 141 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
ring r=0,x,lp;
timer=1;

proc fac(number n){
  if(n==0){
    return(1);
  } else {
    return(n*fac(n-1));
  }
}
print(fac(number(500)));

$