re-org of rnd

4 files changed, 24 insertions, 0 deletions

diff --git a/rnd/aoc01_partial.apl b/rnd/apl/aoc01_partial.apl
index 67d9984..67d9984 100644
--- a/rnd/aoc01_partial.apl
+++ b/rnd/apl/aoc01_partial.apl
diff --git a/rnd/play.ss b/rnd/gerbil/play.ss
index 7a7c3ca..7a7c3ca 100644
--- a/rnd/play.ss
+++ b/rnd/gerbil/play.ss
diff --git a/rnd/guile/play.scm b/rnd/guile/play.scm
new file mode 100644
index 0000000..92d5538
--- /dev/null
+++ b/rnd/guile/play.scm
@@ -0,0 +1,24 @@
+;;; Hello HTTP server
+(use-modules 
+  (web server)
+  (web request)
+  (web response)
+  (web uri))
+
+(define (request-path-components request)
+  (split-and-decode-uri-path (uri-path (request-uri request))))
+
+(define (hello-handler request body)
+  (if (equal? (request-path-components request)
+              '("banana"))
+      (values '((content-type . (text/plain)))
+              "banana kiwi apple pineapple watermelon grapefruit")
+      (not-found request)))
+
+(define (not-found request)
+  (values (build-response #:code 404)
+          (string-append "Resource not found: "
+                         (uri->string (request-uri request)))))
+
+
+(run-server hello-handler)
diff --git a/rnd/sketch.rkt b/rnd/racket/sketch.rkt
index dd25774..dd25774 100644
--- a/rnd/sketch.rkt
+++ b/rnd/racket/sketch.rkt