From 6eb36d8a2f317f2eb49832f3ee06f24204c9e4fb Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 May 2024 14:34:37 -0600 Subject: Hello, Palindrome, & Number-Guesser code-bases --- palindrome.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100755 palindrome.scm (limited to 'palindrome.scm') diff --git a/palindrome.scm b/palindrome.scm new file mode 100755 index 0000000..788fa06 --- /dev/null +++ b/palindrome.scm @@ -0,0 +1,16 @@ +#!/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