fork(1) download
  1. ; dobble
  2.  
  3. (define (dobble n)
  4. (do ((i 0 (+ i 1))) ((= i n))
  5. (do ((j 0 (+ j 1))) ((= j n))
  6. (do ((k 0 (+ k 1)))
  7. ((= k n) (display (+ (* n n) i)) (newline))
  8. (display (+ (* (modulo (+ (* i k) j) n) n) k))
  9. (display " "))))
  10. (do ((i 0 (+ i 1))) ((= i n))
  11. (do ((j 0 (+ j 1)))
  12. ((= j n) (display (+ (* n n) n)) (newline))
  13. (display (+ (* j n) i)) (display " ")))
  14. (do ((i 0 (+ i 1)))
  15. ((= i n) (display (+ (* n n) n)) (newline))
  16. (display (+ (* n n) i)) (display " ")))
  17.  
  18. (dobble 7)
Success #stdin #stdout 0.05s 8744KB
stdin
Standard input is empty
stdout
0 1 2 3 4 5 6 49
7 8 9 10 11 12 13 49
14 15 16 17 18 19 20 49
21 22 23 24 25 26 27 49
28 29 30 31 32 33 34 49
35 36 37 38 39 40 41 49
42 43 44 45 46 47 48 49
0 8 16 24 32 40 48 50
7 15 23 31 39 47 6 50
14 22 30 38 46 5 13 50
21 29 37 45 4 12 20 50
28 36 44 3 11 19 27 50
35 43 2 10 18 26 34 50
42 1 9 17 25 33 41 50
0 15 30 45 11 26 41 51
7 22 37 3 18 33 48 51
14 29 44 10 25 40 6 51
21 36 2 17 32 47 13 51
28 43 9 24 39 5 20 51
35 1 16 31 46 12 27 51
42 8 23 38 4 19 34 51
0 22 44 17 39 12 34 52
7 29 2 24 46 19 41 52
14 36 9 31 4 26 48 52
21 43 16 38 11 33 6 52
28 1 23 45 18 40 13 52
35 8 30 3 25 47 20 52
42 15 37 10 32 5 27 52
0 29 9 38 18 47 27 53
7 36 16 45 25 5 34 53
14 43 23 3 32 12 41 53
21 1 30 10 39 19 48 53
28 8 37 17 46 26 6 53
35 15 44 24 4 33 13 53
42 22 2 31 11 40 20 53
0 36 23 10 46 33 20 54
7 43 30 17 4 40 27 54
14 1 37 24 11 47 34 54
21 8 44 31 18 5 41 54
28 15 2 38 25 12 48 54
35 22 9 45 32 19 6 54
42 29 16 3 39 26 13 54
0 43 37 31 25 19 13 55
7 1 44 38 32 26 20 55
14 8 2 45 39 33 27 55
21 15 9 3 46 40 34 55
28 22 16 10 4 47 41 55
35 29 23 17 11 5 48 55
42 36 30 24 18 12 6 55
0 7 14 21 28 35 42 56
1 8 15 22 29 36 43 56
2 9 16 23 30 37 44 56
3 10 17 24 31 38 45 56
4 11 18 25 32 39 46 56
5 12 19 26 33 40 47 56
6 13 20 27 34 41 48 56
49 50 51 52 53 54 55 56