about summary refs log tree commit diff
path: root/11/Q-2017/cau3.scm
blob: 31cd5c30c76c790ba49a1ea30df01d3091c40921 (plain) (blame)
1
2
3
4
5
6
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))))))))