From 2468c60b00b200b24a383ecc0fdc5d3cf8721b9f Mon Sep 17 00:00:00 2001
From: Raphael McSinyx <vn.mcsinyx@gmail.com>
Date: Sun, 5 Mar 2017 16:36:48 +0700
Subject: Add 11/Q-2017

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

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

diff --git a/11/Q-2017/cau3.scm b/11/Q-2017/cau3.scm
new file mode 100644
index 0000000..31cd5c3
--- /dev/null
+++ b/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