結果

問題 No.3083 One Two
ユーザー norioc
提出日時 2025-04-05 17:06:22
言語 Clojure(Beta)
(1.12.0)
結果
TLE  
実行時間 -
コード長 455 bytes
コンパイル時間 370 ms
コンパイル使用メモリ 7,972 KB
実行使用メモリ 16,080 KB
最終ジャッジ日時 2025-04-05 17:06:30
合計ジャッジ時間 7,131 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample TLE * 1 -- * 2
other -- * 7
権限があれば一括ダウンロードができます

ソースコード

diff # 

(require '[clojure.string :as str])
;; (require '[clojure.core.match :refer [match]])
(when (some #(= "--debug" %) *command-line-args*)
  (require '[my-debug]))

(defn ii [] (Integer/parseInt (read-line)))
(defn li [] (map #(Integer/parseInt %) (str/split (read-line) #" ")))
(def hd first)
(def tl rest)
(defn yn [b] (println (if b "Yes" "No")))

(defn divmod [a b]
  [(quot a b) (rem a b)])


(let [N (ii)
      [d m] (divmod N 2)]
  (println (+ d m)))
0