From 2f674dc80f0382f1c3178f435714960734dc9d3c Mon Sep 17 00:00:00 2001
From: Nguyễn Gia Phong <mcsinyx@disroot.org>
Date: Sat, 6 Jun 2020 21:33:13 +0700
Subject: Reorganize stuff from secondary school

---
 2ndary/11/Q-2017/cau3.scm | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 2ndary/11/Q-2017/cau3.scm

(limited to '2ndary/11/Q-2017/cau3.scm')

diff --git a/2ndary/11/Q-2017/cau3.scm b/2ndary/11/Q-2017/cau3.scm
new file mode 100644
index 0000000..31cd5c3
--- /dev/null
+++ b/2ndary/11/Q-2017/cau3.scm
@@ -0,0 +1,7 @@
+(with-input-from-file "CAU3.INP" (lambda ()
+  (with-output-to-file "CAU3.OUT" (lambda ()
+    (define l (sort (let read-list ((n (read)))
+                      (if (= n 0) '() (cons (read) (read-list (- n 1))))) <))
+    (format #t "~a\n"
+      (max (* (list-ref l (- (length l) 1)) (list-ref l (- (length l) 2)))
+           (* (list-ref l 1) (list-ref l 0))))))))
-- 
cgit 1.4.1