From 94d7472c03653438626e2be806af28b54b229b01 Mon Sep 17 00:00:00 2001
From: loooph <loooph@gmx.de>
Date: Wed, 22 Feb 2023 19:25:33 +0100
Subject: [PATCH] Add function to generate paths

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

diff --git a/dfs.tidal b/dfs.tidal
index 788064a..d9bb1f3 100644
--- 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