oracle snake_trian

DECLARE

TYPE arr1_tt IS TABLE OF INT INDEX BY PLS_INTEGER;

TYPE arr2_tt IS TABLE OF arr1_tt INDEX BY PLS_INTEGER;

arr2_inst arr2_tt;

ROW INT := 1;

col INT := 1;

tmprow INT := 0;

tot INT := 0;

BEGIN

WHILE(ROW<=5) LOOP

col := 1;

tmprow := ROW;

WHILE(col<=ROW) LOOP

tot := tot + 1;

arr2_inst(tmprow)(col) := tot;

tmprow := tmprow-1;

col := col + 1;

END LOOP;

ROW := ROW + 1;

END LOOP;

FOR i IN 1..arr2_inst.count LOOP

FOR j IN 1..arr2_inst(i).count-i+1 LOOP

dbms_output.put_line(arr2_inst(i)(j)||'');

END LOOP;

END LOOP;

END;