diff options
author | Nguyễn Gia Phong <vn.mcsinyx@gmail.com> | 2018-05-23 21:46:57 +0700 |
---|---|---|
committer | Nguyễn Gia Phong <vn.mcsinyx@gmail.com> | 2018-05-23 21:46:57 +0700 |
commit | 18419b2b07ffbc1f390c7309ca78cfc7820411eb (patch) | |
tree | 7a00c7f34466f14b6fcf770e54078f1258bc267e /THT/C/TP-2018/guess.scm | |
parent | 96a3779265c2476d25b6a5c6b616aecca3689f07 (diff) | |
download | cp-18419b2b07ffbc1f390c7309ca78cfc7820411eb.tar.gz |
Thêm đề bảng C Tin học trẻ Hà Nội XXIII
Diffstat (limited to 'THT/C/TP-2018/guess.scm')
-rw-r--r-- | THT/C/TP-2018/guess.scm | 8 |
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)))))) |