From da1201be6ca94bb45e55085e8bbdfc05888e84ea Mon Sep 17 00:00:00 2001
From: loooph <loooph@gmx.de>
Date: Wed, 22 Feb 2023 03:57:17 +0100
Subject: [PATCH] Add function to build complete graph

---
 dfs.tidal | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/dfs.tidal b/dfs.tidal
index 895058f..1cdc17b 100644
--- a/dfs.tidal
+++ b/dfs.tidal
@@ -61,6 +61,9 @@ instrument g e
   | p crossG = "amencutup"
   | otherwise = "rave" -- edge is (x,x)
     where p f = e `elem` (f g)
+--
+-- complete graph
+k n = buildG (1,n) [(u,v)|u <- [1..n],v <- [1..n]]
 
 -- TODO Tiefe
 -- TODO Wurzel betonen