結果

問題 No.388 階段 (1)
ユーザー elderica
提出日時 2023-11-10 23:22:03
言語 Common Lisp
(sbcl 2.5.0)
結果
WA  
実行時間 -
コード長 1,185 bytes
コンパイル時間 142 ms
コンパイル使用メモリ 37,572 KB
実行使用メモリ 30,140 KB
最終ジャッジ日時 2024-09-26 02:20:16
合計ジャッジ時間 933 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2 WA * 1
other AC * 8 WA * 4
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 26 SEP 2024 02:20:15 AM):

; wrote /home/judge/data/code/Main.fasl
; compilation finished in 0:00:00.045

ソースコード

diff # 

(defun split-string (string &key max (separator '(#\Space #\Tab)))
  "Split STRING into a list of components separated by
any of the characters in the sequence SEPARATOR.
If MAX is specified, then no more than max(1,MAX) components will be returned,
starting the separation from the end, e.g. when called with arguments
 \"a.b.c.d.e\" :max 3 :separator \".\" it will return (\"a.b.c\" \"d\" \"e\")."
  (block ()
    (let ((list nil) (words 0) (end (length string)))
      (when (zerop end) (return nil))
        (flet ((separatorp (char) (find char separator))
               (done () (return (cons (subseq string 0 end) list))))
          (loop
            :for start = (if (and max (>= words (1- max)))
                             (done)
                             (position-if #'separatorp string :end end :from-end t))
            :do (when (null start) (done))
                (push (subseq string (1+ start) end) list)
                (incf words)
                (setf end start))))))


(defun read-numbers ()
  (apply #'values
	 (mapcar #'parse-integer
		 (split-string (read-line)))))

(multiple-value-bind
      (s f) (read-numbers)
  (format t "~a~%" (ceiling (/ s f))))
0