fork download
  1. /* read the numbers; notice: ech line of the input must be followed by an EOF character */
  2. x = read();
  3.  
  4. /* multiplication table */
  5. for (i=1; i<=x; ++i)
  6. {
  7. for (j=1; j<=x; ++j) print i*j, "\t"
  8. print "\n"
  9. }
  10.  
  11. /* compute the pi number accurately to 10 decimal places */
  12. scale=x
  13. print "\npi = ", 4*a(1), "\n"
  14.  
  15. /* factorial */
  16. define f(n)
  17. {
  18. if (n <= 1) return 1;
  19. return n * f(n-1);
  20. }
  21.  
  22. print "\n";
  23. print "1! = ", f(1), "\n";
  24. print "5! = ", f(5), "\n";
  25. print x, "! = ", f(x), "\n";
  26.  
Success #stdin #stdout 0.01s 2288KB
stdin
1 999900000 1000000000
stdout
1	

pi = 2.8

1! = 1
5! = 120
1! = 1