From f6d333ef67fa2c9c199d4c401322fc31d90867da Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 18 May 2024 19:12:47 -0600
Subject: Adapt palindrome into a ttd approach

---
 palindrome.scm | 16 ----------------
 1 file changed, 16 deletions(-)
 delete mode 100755 palindrome.scm

(limited to 'palindrome.scm')

diff --git a/palindrome.scm b/palindrome.scm
deleted file mode 100755
index 788fa06..0000000
--- a/palindrome.scm
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/run/current-system/profile/bin/guile \
--e main -s
-!#
-
-
-(define (main args)
-  (format #t "String was ~aa palindrome!\n"
-          (if (palindrome? (cleanup (car (cdr args))))
-              "" "not ")))
-
-(define (cleanup str)
-  (string-downcase (string-filter
-                    char-set:letter str)))
-
-(define (palindrome? str)
-  (equal? str (string-reverse str)))
-- 
cgit v1.2.3