827 B
		
	
	
	
	
	
	
	
			
		
		
	
	
			827 B
		
	
	
	
	
	
	
	
aliases, up, tags
| aliases | up | tags | |
|---|---|---|---|
| 
 | 
Routines
ORDREK
Code de l'article :
procedure ORDREK(x,y,v)
    if y>n−k∧deg[x] <k∧n−y<k−deg[x] then
        return
    end if
    if x≤n−k∧deg[x]=k then
        for i=y+1 to n do
            if n−x−1 <k−deg[i] then
                return
            end if
        end for
    end if
    while x<n∧deg[x]=k do
        x∶=x+1
    end while
    if v≤y then
        v∶=y+1
    end if
    if x=v then
        return
    end if
    if KATEST()=0 then
        return
    end if
    if x=n∧deg[x]=k then
        OUTPUT()
    end if
    y∶=x
    while y<n do
        y∶=y+1
        if deg[y] <k then
            INSERT(x,y)
            ORDREK(x,y,v)
            DELETE(x,y)
        end if
    end while
    return
end procedure