구구단의 J구현.
----
일단, 형식없이 그냥 verb table 이용.
~cpp
1 2 3 4 5 6 7 8 9 */ 1 2 3 4 5 6 7 8 9
이렇게 하면 다음과 같은 결과가 나온다.
~cpp
1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
6 12 18 24 30 36 42 48 54
7 14 21 28 35 42 49 56 63
8 16 24 32 40 48 56 64 72
9 18 27 36 45 54 63 72 81
이것은
구구단 페이지에서 요구하는 출력조건을 만족하지 못함. 따라서 약간의 변환 수행.
----
~cpp
t =: 1 2 3 4 5 6 7 8{ (1 2 3 4 5 6 7 8 9 */ 1 2 3 4 5 6 7 8 9)
2 4 $ (0{t);(1{t); (2{t); (3{t); (4{t); (5{t); (6{t); (7{t)
이러면 결과가 맞게 나오긴 하는데 코드가 조금 무식해보인다.
2 4 6 8 10 12 14 16 18 | 3 6 9 12 15 18 21 24 27 | 4 8 12 16 20 24 28 32 36 | 5 10 15 20 25 30 35 40 45 |
6 12 18 24 30 36 42 48 54 | 7 14 21 28 35 42 49 56 63 | 8 16 24 32 40 48 56 64 72 | 9 18 27 36 45 54 63 72 81 |
----
구구단