Add function to build complete graph

add support for loops
2023-02-22 03:57:17 +01:00 · 2023-02-22 03:56:47 +01:00
1 changed files with 4 additions and 0 deletions
--- a/dfs.tidal
+++ b/dfs.tidal
@ -59,7 +59,11 @@ instrument g e
  | p forwardG = "superpwm"
  | p backG = "casio"
  | 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
Author	SHA1	Message	Date
loooph	da1201be6c	Add function to build complete graph	2023-02-22 03:57:17 +01:00
loooph	355de55fa7	add support for loops	2023-02-22 03:56:47 +01:00