Add function to generate paths

2023-02-22 19:25:33 +01:00 · 2023-02-22 19:25:33 +01:00 · 94d7472c03
parent 7b3dffc6ad
commit 94d7472c03
1 changed files with 4 additions and 0 deletions
--- a/dfs.tidal
+++ b/dfs.tidal
@ -60,6 +60,10 @@ instrument g e
 --
 -- complete graph
 k n = buildG (1,n) [(u,v)|u <- [1..n],v <- [1..n]]
+-- path
+p n = buildG (1,n) [(u,u+1)|u <- [1..n-1]]
+-- reversed path TODO function to reverse all edges for arbitary graphs
+p' n = buildG (1,n) [(u+1,u)|u <- [1..n-1]]

 -- TODO Tiefe
 -- TODO Wurzel betonen