結果
問題 |
No.345 最小チワワ問題
|
ユーザー |
|
提出日時 | 2024-09-15 18:00:00 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 52 ms / 2,000 ms |
コード長 | 757 bytes |
コンパイル時間 | 245 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 16,128 KB |
最終ジャッジ日時 | 2024-09-15 18:00:03 |
合計ジャッジ時間 | 2,217 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 29 |
ソースコード
(define (find-cww s lim) (letrec* ( (n (string-length s)) (ans lim) (loop-i (lambda (i ans) (if (>= i (- n 2)) ans (loop-j i (+ i 1) ans)))) (loop-j (lambda (i j ans) (if (>= j (- n 1)) (loop-i (+ i 1) ans) (loop-k i j (+ j 1) ans)))) (loop-k (lambda (i j k ans) (if (>= k n) (loop-j i (+ j 1) ans) (let ((new-ans (if (and (char=? (string-ref s i) #\c) (char=? (string-ref s j) #\w) (char=? (string-ref s k) #\w)) (min ans (+ 1 (- k i))) ans))) (loop-k i j (+ k 1) new-ans))))) ) (let ( (result (loop-i 0 ans)) ) (if (= result lim) -1 result ) ) ) ) (define yuki345 (let ( (s (read-line)) ) (display (find-cww s 101)) (newline) ) )