ABC#2 ２問目

abc2-2.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 (first args)]
    (.log js/console 
      (apply str
        (remove #((set "aiueo") %) 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")))))