baekjoon6986.clj

(ns prac.core 
  (:require [clojure.string :as str]))

(defn -main []
  (let [[x c] (as-> (read-line) a
            (str/split a #" ")
            (map #(Integer. %) a))
        l (as-> (for [_ (range x)]
                  (Double. (read-line))) a
            (sort a)
            (drop c a)
            (drop-last c a))]
    (println (format "%.2f" (/ (reduce + l) (count l))))
    (println (format "%.2f" (/ (+ (* (first l) c) (* (last l) c) (reduce + l)) (+ c c (count l)))))))