Add function to build complete graph

2023-02-22 03:57:17 +01:00 · 2023-02-22 03:57:17 +01:00 · da1201be6c
parent 355de55fa7
commit da1201be6c
1 changed files with 3 additions and 0 deletions
--- 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