From 200231f282c5e20a4dd1789adec070f87d437532 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Wed, 23 Aug 2023 17:03:56 +0300
Subject: Add extra utility fn for removing duplicates

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 transform/strings.scm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'transform')

diff --git a/transform/strings.scm b/transform/strings.scm
index 98f828f..c7eb64a 100644
--- a/transform/strings.scm
+++ b/transform/strings.scm
@@ -10,6 +10,7 @@
             string-split-substring
             delete-substrings
             replace-substrings
+            remove-duplicates
             sanitize-rdf-string
             snake->lower-camel
             string-capitalize-first))
@@ -99,3 +100,9 @@ association list mapping substrings to their replacements."
   (string-titlecase
    (string-downcase string) 0 1))
 
+(define (remove-duplicates lst)
+  (let loop ((lst lst) (result '()))
+    (cond
+      ((null? lst) (reverse result))
+      ((memq (car lst) result) (loop (cdr lst) result))
+      (else (loop (cdr lst) (cons (car lst) result))))))
-- 
cgit v1.2.3