ABC#2 １問目

abc2-1.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 (map #(js/parseInt % 10) (split (first args) " "))]
    (.log js/console 
      (apply max input))))

; 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")))))