From 18419b2b07ffbc1f390c7309ca78cfc7820411eb Mon Sep 17 00:00:00 2001
From: Nguyễn Gia Phong <vn.mcsinyx@gmail.com>
Date: Wed, 23 May 2018 21:46:57 +0700
Subject: Thêm đề bảng C Tin học trẻ Hà Nội XXIII
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 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