about summary refs log tree commit diff
path: root/THT/C/TP-2018/guess.scm
blob: 22746056d5148e7290556470903ecfae5340ae0c (plain) (blame)
1
2
3
4
5
6
7
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))))))