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 --- hello/hello.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100755 hello/hello.scm (limited to 'hello/hello.scm') 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))) -- cgit v1.2.3