1 files changed, 8 insertions, 0 deletions
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))))))