結果

問題 No.203 ゴールデン・ウィーク(1)
ユーザー Common LispCommon Lisp
提出日時 2024-10-08 15:40:16
言語 Common Lisp
(sbcl 2.3.8)
結果
AC  
実行時間 10 ms / 1,000 ms
コード長 1,519 bytes
コンパイル時間 365 ms
コンパイル使用メモリ 37,628 KB
実行使用メモリ 31,892 KB
最終ジャッジ日時 2024-10-08 15:40:19
合計ジャッジ時間 1,789 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 9 ms
25,896 KB
testcase_01 AC 10 ms
25,896 KB
testcase_02 AC 9 ms
25,896 KB
testcase_03 AC 10 ms
31,892 KB
testcase_04 AC 9 ms
25,768 KB
testcase_05 AC 9 ms
25,900 KB
testcase_06 AC 9 ms
25,896 KB
testcase_07 AC 9 ms
25,768 KB
testcase_08 AC 9 ms
25,768 KB
testcase_09 AC 9 ms
27,812 KB
testcase_10 AC 10 ms
25,768 KB
testcase_11 AC 10 ms
27,984 KB
testcase_12 AC 9 ms
25,896 KB
testcase_13 AC 9 ms
25,768 KB
testcase_14 AC 9 ms
25,768 KB
testcase_15 AC 9 ms
25,900 KB
testcase_16 AC 9 ms
25,900 KB
testcase_17 AC 9 ms
25,768 KB
testcase_18 AC 9 ms
25,768 KB
testcase_19 AC 10 ms
29,732 KB
testcase_20 AC 9 ms
25,772 KB
testcase_21 AC 9 ms
25,896 KB
testcase_22 AC 10 ms
30,012 KB
testcase_23 AC 9 ms
25,896 KB
testcase_24 AC 9 ms
25,900 KB
testcase_25 AC 10 ms
29,988 KB
testcase_26 AC 9 ms
25,768 KB
testcase_27 AC 10 ms
27,980 KB
testcase_28 AC 9 ms
25,900 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 08 OCT 2024 03:40:16 PM):

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

ソースコード

diff # 

; 文字列を一度全て繋げる
; その後リストに矯正し group 化して最大個数を調べる

; 隣接する同一要素をまとめたリストをリスト化する
; (group '(1 2 2 1 2 2 1 1 1 1 2 2 1 2 2))
; =>
; ((1) (2 2) (1) (2 2) (1 1 1 1) (2 2) (1) (2 2))
(defun group (lst)
  (let ((result '())
        (cur nil))
    (dolist (c lst)
      (if (null cur)
          (setq cur (list c))
          (if (equal c (car cur))
              (push c cur)
              (progn
               (push (nreverse cur) result)
               (setq cur (list c))))))
    (when cur
          (push (nreverse cur) result))
    (nreverse result)))

(defun main ()
            ; 読み込んだ一行の文字列を組み合わせる
  (let* ((s (concatenate 'string (read-line) (read-line)))
         ; 休みがない場合は別に処理する
         ; このとき 0 を出力する
         (a (find #\o s)))
  (if a
     (princ
      ; リストの左から右へ2項ずつ最大値を求めながら走査していく
      (reduce #'max
        ; 各リストの長さを求める
        (map 'list #'length
          ; 平日のリストを除く
          (remove-if (lambda (cs) (char= (car cs) #\x))
            ; 平日の連なりと休日の連なりを一つのリストにまとめ、それらをリスト化する関数
            (group
              ; 文字列を強制的に一文字ずつのリストに変換する
              (coerce s 'list))))))
      (princ 0)))
  (terpri))
(main)
0