1
11
21
1211
111221
312211
13112221
1113213211
31131211131221
13211311123113112211
11131221133112132113212221

create or replace function next_str(ins in varchar2) return varchar2 is
  Result varchar2(4000);
BEGIN
  WITH q AS (
  SELECT ins AS s
    FROM dual)
  SELECT replace(max(sys_connect_by_path(n||ss,',')),',','')
    INTO RESULT
    FROM (SELECT ss,
                 lvl-nvl(lag(lvl,1) over (ORDER BY lvl),0) n,
                 row_number() over (ORDER BY lvl) rn
            FROM (SELECT lead(ss,1) over (ORDER BY lvl) lss,
                         ss,
                         lvl
                    FROM (SELECT LEVEL lvl,
                                 substr(s,LEVEL,1) ss
                            FROM q
                           CONNECT BY LEVEL <= length(s))) 
           WHERE nvl(lss,ss+1) <> ss)
   START WITH rn<2
   CONNECT BY rn = PRIOR rn+1;
  return(Result);
end next_str;

SELECT n+1 AS n, ns
  FROM dual
       MODEL 
       DIMENSION BY (0 n)
       MEASURES (1 m,CAST (NULL AS VARCHAR2(4000)) ns)
       RULES ITERATE (10) (
         m[iteration_number]=CASE WHEN iteration_number <3 THEN 1 
                                  ELSE nvl(m[iteration_number-1],1)+nvl(m[iteration_number-2],1)
                             END,
         ns[iteration_number] = CASE WHEN iteration_number=0 THEN '1' ELSE next_str(ns[iteration_number-1]) END)

-- Created on 25.01.2008 by VADIM 
declare 
  -- Local variables here
  i number(32);
  j number(32);
  k number(32);  
  v varchar2(1000);
  vt varchar2(1000);
  vt2 varchar2(1000);  
  vn2 varchar2(1000);  
begin
  -- Test statements here
  v:='1';
  for i in 1..10 loop
    dbms_output.put_line(v);
    vt:=substr(v,1,1);
    vn2:='';
    k:=1;
    for j in 1..length(v) loop
      vt2:=nvl(substr(v,j+1,1),'0');
       if vt2<>vt then
         vt:=to_char(k)||vt;
         vn2:=vn2||vt;
         vt:=vt2;
         k:=1;
      else
         k:=k+1;
      end if;
    end loop;
    v:=vn2;
  end loop;
end;

x='1113213211'
y=''
n=1
for j = 1 .. 99
put_line x
 for i = 1 .. length(x)
  if(x(i) == x(i+1) and  x(i+1) is not null)
     n++
  else
    y:=y||n||x(i)
    n :=1
 end loop
  x : =y y := null
 end loop

SELECT * FROM (
SELECT n+1 AS n, ns,nsr
  FROM dual
       MODEL 
       DIMENSION BY (0 n)
       MEASURES (1 m,CAST (NULL AS VARCHAR2(4000)) ns,CAST (NULL AS VARCHAR2(4000)) nsr)
       RULES ITERATE (28) (
         ns[iteration_number] = CASE WHEN iteration_number=0 THEN '1' 
                                ELSE next_str(ns[iteration_number-1]) END,
         nsr[iteration_number] = CASE WHEN iteration_number=0 THEN '1' 
                                 ELSE  translate(
                                         replace(replace(replace(
                                           replace(replace(replace(
                                             replace(replace(replace(nsr[iteration_number-1],
                                                '111','CA'),'222','CB'),'333','CC'),
                                             '11','BA'),'22','BB'),'33','BC'),
                                           '1','AA'),'2','AB'),'3','AC'),
                                         'ABC','123') END
                               )
                               ) WHERE ns=nsr

with t as (
 select level n from dual connect by level <= 10
)
select n,q
from t
model
dimension by (n)
measures (cast('' as varchar2(4000)) s,cast('' as varchar2(4000)) q)
rules iterate (1000)
(
 q[any] order by n=nvl(s[cv()-1],1),
 s[any] order by n= s[cv()]||
 length(regexp_substr(nvl(s[cv()-1],'1'),'(\d)\1*',1,iteration_number+1))||
 substr(regexp_substr(nvl(s[cv()-1],'1'),'(\d)\1*',1,iteration_number+1),1,1)
)

SQL> CREATE or REPLACE Procedure piramida(
  2   pZifra  number,
  3   pShag   number
  4   ) is
  5   nr varchar2(100) := to_char(pZifra);
  6   nr2 varchar2(100);
  7   zif varchar2(1);
  8   zif_n varchar2(1);
  9   TYPE tRec is RECORD (
 10     anz pls_integer
 11    ,num varchar2(1)
 12   );
 13   TYPE tTab is table of tRec index by binary_integer;
 14   lTab tTab;
 15   idx binary_integer := 0;
 16  BEGIN
 17   dbms_output.put_line(to_char(nr));
 18   FOR i in 1..pShag LOOP
 19    FOR j in 1..length(nr) LOOP
 20     zif_n := substr(nr,j,1);
 21     if idx = 0 or zif is null or zif != zif_n then
 22      idx := idx + 1;
 23      lTab(idx).anz := 1;
 24      lTab(idx).num := zif_n;
 25      zif := zif_n;
 26     else
 27      lTab(idx).anz := lTab(idx).anz + 1;
 28     end if;
 29    END LOOP;
 30    nr2 := '';
 31    FOR k in 1..idx LOOP
 32     nr2 := nr2 || to_char(lTab(k).anz) || lTab(k).num;
 33    END LOOP;
 34    dbms_output.put_line(nr2);
 35    nr := nr2;
 36    lTab.delete;
 37    idx := 0;
 38   END LOOP;
 39  END;
 40  /

Prozedur wurde angelegt.

SQL> exec piramida(1,9);
1
11
21
1211
111221
312211
13112221
1113213211
31131211131221
13211311123113112211

PL/SQL-Prozedur wurde erfolgreich abgeschlossen.

RA\/EN

Можно и без функции (см. поле NSR и предикат ns=nsr).

41 => *1111* => (a: 11+11 = не моджет быть, было ба 21, b: N1+11+1* =  не может быть, было бы (N+1)1)
42 => *2222* => (a: 22+22 = 2222 = 42 = нет (рекурсия)
43 => *3333* => (a: 33+33 = не может быть, было бы 63, b: N3+33+3* = не можеть быть, было бы (N+3)3

SQL> set serveroutput on 
SQL> set timing on
SQL> exec dbms_output.enable(1e6);
 
PL/SQL procedure successfully completed
 
Executed in 0,01 seconds
 
SQL> 
SQL> declare
  2    c CLOB := '1';
  3  begin
  4    FOR i IN 1..40 LOOP
  5      c:=
  6      replace(replace(replace(
  7       replace(replace(replace(
  8         replace(replace(replace(
  9           replace(replace(replace(c,
 10              '111','CA'),'222','CB'),'333','CC'),
 11           '11','BA'),'22','BB'),'33','BC'),
 12         '1','AA'),'2','AB'),'3','AC'),
 13       'A','1'),'B','2'),'C','3');
 14      dbms_output.put_line('['||i||']');
 15      FOR j IN 0..trunc(length(c)/4000)
 16      LOOP
 17        dbms_output.put_line(substr(c,j*4000,4000));
 18      END LOOP;
 19    END LOOP;
 20  end;
 21  /
 
[1]
11
[2]
21
[3]
1211
[4]
111221
[5]
312211
[6]
13112221
... lines skipped ...
[40]
111312211312111322212...
... lines skipped ...
...322212311222122132113213221123
 
PL/SQL procedure successfully completed
 
Executed in 0,221 seconds
 
SQL>