about summary refs log tree commit diff
path: root/tht/C/TP-2018/guess.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tht/C/TP-2018/guess.scm')
-rw-r--r--tht/C/TP-2018/guess.scm8
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))))))