Adapt palindrome into a ttd approach

1 files changed, 0 insertions, 16 deletions

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)))