Improvements to loop removing

This commit is contained in:
alonso.torres 2021-04-23 11:29:07 +02:00 committed by Andrés Moya
parent 2184286a78
commit 1a7b098282
8 changed files with 96 additions and 73 deletions

View file

@ -103,9 +103,7 @@
(defn close-subpaths
"Searches a path for posible supaths that can create closed loops and merge them"
[content]
(let [subpaths (get-subpaths content)
closed-subpaths
(loop [result []
current (first subpaths)