From 9e28e4c7b67c54229df11d355047ac8a88ea1817 Mon Sep 17 00:00:00 2001 From: Nguyễn Gia Phong Date: Sun, 15 Dec 2019 15:09:13 +0700 Subject: Normalize pathname --- THT/C/TP-2018/guess.scm | 8 -------- 1 file changed, 8 deletions(-) delete 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 deleted file mode 100644 index 2274605..0000000 --- a/THT/C/TP-2018/guess.scm +++ /dev/null @@ -1,8 +0,0 @@ -(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