- Code: Select all
:{10^2}-L2
:for(A,1,dim L1)
:for(B,1,dim L2)
:if L1(A)L2(B):then
:dim L2 +1-dim L2
:for(C,dim (L2),B,-1)
:if C1:L2(C-1)-L2(C)
:end
:L1(A)-L2(B)
:end
:end
:end
:dim L2 - 1-dim L2
:L2 - L1
:{0}-L2
là ça marche pas mais pas d'erreur... je débug ^^
[EDIT]j'ai mis à jour ça marche presque ^^