結果
問題 | No.588 空白と回文 |
ユーザー |
|
提出日時 | 2017-12-31 22:08:11 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 203 ms / 2,000 ms |
コード長 | 584 bytes |
コンパイル時間 | 141 ms |
コンパイル使用メモリ | 5,376 KB |
実行使用メモリ | 16,000 KB |
最終ジャッジ日時 | 2024-12-21 15:36:29 |
合計ジャッジ時間 | 3,284 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 25 |
ソースコード
(define (same-character s l r) (let loop ([c 0] [i l] [j (- r 1)]) (cond [(= i r) c] [(char=? (string-ref s i) (string-ref s j)) (loop (+ c 1) (+ i 1) (- j 1))] [else (loop c (+ i 1) (- j 1))]))) (define (main args) (let* ([s (read-line)] [sl (string-length s)]) (print (let loop ([l 0] [r 1] [mx 0]) (cond [(= l sl) mx] [(= r sl) (loop (+ l 1) r (max mx (same-character s l r)))] [else (loop l (+ r 1) (max mx (same-character s l r)))])))) 0)