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
10
stdout
1	2	3	4	5	6	7	8	9	10	
2	4	6	8	10	12	14	16	18	20	
3	6	9	12	15	18	21	24	27	30	
4	8	12	16	20	24	28	32	36	40	
5	10	15	20	25	30	35	40	45	50	
6	12	18	24	30	36	42	48	54	60	
7	14	21	28	35	42	49	56	63	70	
8	16	24	32	40	48	56	64	72	80	
9	18	27	36	45	54	63	72	81	90	
10	20	30	40	50	60	70	80	90	100	

pi = 3.1415926532

1! = 1
5! = 120
10! = 3628800