結果

問題 No.3083 One Two
コンテスト
ユーザー norioc
提出日時 2025-04-05 17:06:22
言語 Clojure(Beta)
(1.12.4)
コンパイル:
true
実行:
clojure -M _filename_
結果
AC  
実行時間 1,981 ms / 2,000 ms
コード長 455 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 23 ms
コンパイル使用メモリ 5,760 KB
実行使用メモリ 130,372 KB
最終ジャッジ日時 2026-07-08 12:02:40
合計ジャッジ時間 20,854 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 7
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

(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