From 4198d7b94d19248e357c1e4b7fca1123f48f0bfa Mon Sep 17 00:00:00 2001
From: oskar <oscarplaisant@icloud.com>
Date: Thu, 15 May 2025 11:31:52 +0200
Subject: [PATCH] MacBook-Pro-de-Oscar.local 2025-5-15:11:31:52

---
 Graphreg.md | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/Graphreg.md b/Graphreg.md
index 332ba79e..26daa6bb 100644
--- a/Graphreg.md
+++ b/Graphreg.md
@@ -3,3 +3,45 @@ 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
+```
\ No newline at end of file