ABC#2 ３問目

abc2-3.cljs

(ns atcoder.core
  (:use [clojure.string :only (join split split-lines)]))

; don't fix me
(defn gen-args 
  [input]
  (split-lines input))


; start code section
(defn main 
  [args]
  (let [input (vec (map #(js/parseInt % 10) (split (first args) " ")))]
    (.log js/console 
      (/
        (.abs js/Math
          (+
            (* 
              (input 0)
              (-
                (input 3)
                (input 5)))
            (*
              (input 2)
              (-
                (input 5)
                (input 1)))
            (*
              (input 4)
              (-
                (input 1)
                (input 3)))))
        2))))

; don't fix me
(defn ^:export debug 
  []
  (main 
    (gen-args 
      (.. js/document 
        (getElementById "input") 
        -value))))

; don't fix me
(set! *main-cli-fn* 
  (main 
    (gen-args 
      (.. (js/require "fs") 
        (readFileSync "/dev/stdin" "utf8")))))