fork download
copy 
  1. table <- function( first, last ){
  2. 	a <- first : last
  3. 	A <- outer( a, a, "*" )
  4. 	rownames( A ) <- as.character( a )
  5. 	colnames( A ) <- as.character( a )
  6. 	return( A )
  7. }
  8.  
  9. table( 1, 9 )
  10. cat( "\n\n" )
  11. table( -7, 7 )
Success #stdin #stdout 0.44s 22824KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
  1  2  3  4  5  6  7  8  9
1 1  2  3  4  5  6  7  8  9
2 2  4  6  8 10 12 14 16 18
3 3  6  9 12 15 18 21 24 27
4 4  8 12 16 20 24 28 32 36
5 5 10 15 20 25 30 35 40 45
6 6 12 18 24 30 36 42 48 54
7 7 14 21 28 35 42 49 56 63
8 8 16 24 32 40 48 56 64 72
9 9 18 27 36 45 54 63 72 81


    -7  -6  -5  -4  -3  -2 -1 0  1   2   3   4   5   6   7
-7  49  42  35  28  21  14  7 0 -7 -14 -21 -28 -35 -42 -49
-6  42  36  30  24  18  12  6 0 -6 -12 -18 -24 -30 -36 -42
-5  35  30  25  20  15  10  5 0 -5 -10 -15 -20 -25 -30 -35
-4  28  24  20  16  12   8  4 0 -4  -8 -12 -16 -20 -24 -28
-3  21  18  15  12   9   6  3 0 -3  -6  -9 -12 -15 -18 -21
-2  14  12  10   8   6   4  2 0 -2  -4  -6  -8 -10 -12 -14
-1   7   6   5   4   3   2  1 0 -1  -2  -3  -4  -5  -6  -7
0    0   0   0   0   0   0  0 0  0   0   0   0   0   0   0
1   -7  -6  -5  -4  -3  -2 -1 0  1   2   3   4   5   6   7
2  -14 -12 -10  -8  -6  -4 -2 0  2   4   6   8  10  12  14
3  -21 -18 -15 -12  -9  -6 -3 0  3   6   9  12  15  18  21
4  -28 -24 -20 -16 -12  -8 -4 0  4   8  12  16  20  24  28
5  -35 -30 -25 -20 -15 -10 -5 0  5  10  15  20  25  30  35
6  -42 -36 -30 -24 -18 -12 -6 0  6  12  18  24  30  36  42
7  -49 -42 -35 -28 -21 -14 -7 0  7  14  21  28  35  42  49
https://ideone.com/J6xaLu
language:
R (R 3.5.2)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!