From aaddea18a7a85dbf0af7c0670f610c8a3ddcd4dd Mon Sep 17 00:00:00 2001
From: Justin Lin <caterpillar@openhome.cc>
Date: Wed, 4 Mar 2020 10:07:01 +0800
Subject: [PATCH] add dedup

---
 src/experimental/dedup.scad | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 src/experimental/dedup.scad

diff --git a/src/experimental/dedup.scad b/src/experimental/dedup.scad
new file mode 100644
index 00000000..3fbedf39
--- /dev/null
+++ b/src/experimental/dedup.scad
@@ -0,0 +1,7 @@
+use <experimental/has.scad>;
+
+function _dedup(src, dest, leng, i = 0) = 
+    i == leng ? dest :
+    has(dest, src[i]) ? _dedup(src, dest, leng, i + 1) : _dedup(src, concat(dest, [src[i]]), leng, i + 1);
+
+function dedup(lt) = _dedup(lt, [], len(lt));
\ No newline at end of file