Hello, Palindrome, & Number-Guesser code-bases

1 files changed, 16 insertions, 0 deletions

diff --git a/hello/hello.scm b/hello/hello.scm
new file mode 100755
index 0000000..bf8dfa0
--- /dev/null
+++ b/hello/hello.scm
@@ -0,0 +1,16 @@
+(define-module (hello))
+
+(define GREETING_PREFIX "hello ")
+(define GREETING_SUFFIX "\n")
+(define DEFAULT_ADDRESSEE "world")
+
+
+(define-public hi
+  (lambda* (#:optional name)
+    (string-append GREETING_PREFIX (addressee name) GREETING_SUFFIX)))
+
+(define addressee
+  (lambda (name)
+    (if name
+        name
+        DEFAULT_ADDRESSEE)))