How can one make a Distinct Multiplication Table ?

Question

This Code make Multiplication Table :-
BEGIN
FOR I IN 1.. 12 LOOP
DBMS_OUTPUT.PUT_LINE('---------------------['
||I
||']----------------------');
FOR J IN 1.. 12 LOOP
DBMS_OUTPUT.PUT_LINE(I
||'*'
||J
||'='
||I * J);
END LOOP;
END LOOP;
END;
---------------------[1]----------------------
1*1=1
1*2=2
1*3=3
1*4=4
1*5=5
1*6=6
1*7=7
1*8=8
1*9=9
1*10=10
1*11=11
1*12=12
---------------------[2]----------------------
2*1=2
2*2=4
2*3=6
2*4=8
2*5=10
2*6=12
11*7=77
11*8=88
11*9=99
11*10=110
11*11=121
11*12=132
---------------------[ 12 ]----------------------
12*1=12
12*2=24
12*3=36
12*4=48
12*5=60
12*6=72
12*7=84
12*8=96
12*9=108
12*10=120
12*11=132
12*12=144
PL/SQL procedure successfully completed.
=====================
that's good , but I want to change my code to perform a distinct results .
by accurate meaning , if this result happen ( 1*12=12) than I don't it repeat
again like (12*1=12) or (2*6=12) .... ect.
is there any suggest ?!

Answer 1

Just store your results in hash table and before output check, whether results already been produced.
declare
  type res_t is table of number index by binary_integer;
  results res_t;
begin
  for i in 1 .. 12 loop
    dbms_output.put_line('---------------------[' || i ||
    for j in 1 .. 12 loop
      if not results.exists(i * j)  then
        dbms_output.put_line(i || '*' || j || '=' || i * j);
        results(i * j) := i * j;
      end if;
    end loop;
  end loop;
end;Best regards
Maxim