From 9e28e4c7b67c54229df11d355047ac8a88ea1817 Mon Sep 17 00:00:00 2001
From: Nguyễn Gia Phong <vn.mcsinyx@gmail.com>
Date: Sun, 15 Dec 2019 15:09:13 +0700
Subject: Normalize pathname

---
 tht/C/TP-2018/guess.scm | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 tht/C/TP-2018/guess.scm

(limited to 'tht/C/TP-2018/guess.scm')

diff --git a/tht/C/TP-2018/guess.scm b/tht/C/TP-2018/guess.scm
new file mode 100644
index 0000000..2274605
--- /dev/null
+++ b/tht/C/TP-2018/guess.scm
@@ -0,0 +1,8 @@
+(with-input-from-file "GUESS.INP"
+  (lambda ()
+    (with-output-to-file "GUESS.OUT"
+      (lambda ()
+        (let* ((a (read))
+               (b (read)))
+          (display ((list-ref (list + - *) (random 3)) a b))
+          (newline))))))
-- 
cgit 1.4.1