[SOLUCIONADO] Imprimir un patron

[jpaulxD]

Hola a todos necesito crear un procedimiento que realize lo siguiente

Código SQL:

SQL>EXECUTE EJEMPLO(4);
1111
333
22
4
 

He intentado esto hasta ahora:

Código SQL:

SQL>CREATE OR REPLACE PROCEDURE EJEMPLO(N IN NUMBER)
AS
P VARCHAR(50);
BEGIN
FOR X IN REVERSE 1..N LOOP
P:=' ';
FOR B IN REVERSE 1..X LOOP
P:=P|| TO_CHAR(X);
END LOOP;
DBMS_OUTPUT.PUT_LINE(P);
END LOOP;
END;
/
 

Con eso solo obtengo este resultado

Código SQL:

SQL>EXECUTE EJEMPLO(4);
4444
333
22
1
 

No hallo la forma de comenzar imprimiendo varios 1 al inicio y que luego le siga el 2 y 3 respectivamente...

[jpaulxD]

Pude resolverlo :D
Esta es la solución

Código SQL:

SQL>CREATE OR REPLACE PROCEDURE TERCERO(N IN NUMBER)
AS P VARCHAR(50);
K NUMBER:=N+1;
BEGIN
FOR X IN 1..N LOOP
P:='';
FOR Y IN REVERSE 1..N LOOP
P:=P||TO_CHAR(X);
END LOOP;
K:=K-1;
DBMS_OUTPUT.PUT_LINE(SUBSTR(P,1,K));
END LOOP;
END;
/