From 45d76a2a1afcbbd50f53510330f12f4ea050de18 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Sat, 3 Jul 2021 22:39:04 +0200
Subject: Scheme solution for week 119, part 1

---
 challenge-119/abigail/README.md       |  1 +
 challenge-119/abigail/scheme/ch-1.scm | 24 ++++++++++++++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 challenge-119/abigail/scheme/ch-1.scm

diff --git a/challenge-119/abigail/README.md b/challenge-119/abigail/README.md
index 8a78d90c19..2fc20d5e68 100644
--- a/challenge-119/abigail/README.md
+++ b/challenge-119/abigail/README.md
@@ -45,6 +45,7 @@ decimal `33`.
 * [Python](python/ch-1.py)
 * [R](r/ch-1.r)
 * [Ruby](ruby/ch-1.rb)
+* [Scheme](scheme/ch-1.scm)
 * [Tcl](tcl/ch-1.tcl)
 
 ### Blog
diff --git a/challenge-119/abigail/scheme/ch-1.scm b/challenge-119/abigail/scheme/ch-1.scm
new file mode 100644
index 0000000000..8202ca7aaf
--- /dev/null
+++ b/challenge-119/abigail/scheme/ch-1.scm
@@ -0,0 +1,24 @@
+;;;
+;;; See ../README.md
+;;;
+
+;;;
+;;; Run as: guile --no-auto-compile ch-1.scm < input-file
+;;;
+
+
+(use-modules (ice-9 format))
+
+(define (main)
+    (define num (read))
+    (if (not (eof-object? num))
+        (begin
+            (format #t "~d\n" (logior (logand num (lognot #xFF))
+                                 (ash (logand num #x0F)  4)
+                                 (ash (logand num #xF0) -4)))
+            (main)
+        )
+    )
+)
+
+(main)
-- 
cgit