loooph
/
cm-dfs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add function to build complete graph

master
loooph 2023-02-22 03:57:17 +01:00
parent 355de55fa7
commit da1201be6c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
dfs.tidal
View File

@ -61,6 +61,9 @@ instrument g e
| p crossG = "amencutup" | p crossG = "amencutup"
| otherwise = "rave" -- edge is (x,x) | otherwise = "rave" -- edge is (x,x)
where p f = e `elem` (f g) 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 Tiefe
-- TODO Wurzel betonen -- TODO Wurzel betonen