Host-004.lan 2025-5-15:14:21:59

This commit is contained in:
oskar 2025-05-15 14:21:59 +02:00
parent 4198d7b94d
commit d1b2560949

View File

@ -35,12 +35,12 @@ procedure ORDREK(x,y,v)
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
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