結果
問題 | No.345 最小チワワ問題 |
ユーザー |
|
提出日時 | 2016-03-25 07:05:01 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 667 bytes |
コンパイル時間 | 1,763 ms |
コンパイル使用メモリ | 31,616 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-09-25 11:41:24 |
合計ジャッジ時間 | 2,442 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 29 |
ソースコード
! yukicoder My Practice ! author: Leonardone @ NEETSDKASU PROGRAM yukicoder INTEGER(8) :: n, i, f, j, t, ans CHARACTER(101) :: s READ(*,*) s n = LEN_TRIM(s) ! PRINT '(I0)', n ans = -1 DO i = 1, n ! PRINT '(A)', s(i:i) IF (s(i:i) /= 'c') CYCLE f = 0 DO j = i + 1, n IF (s(j:j) /= 'w') CYCLE f = f + 1 IF (f < 2) CYCLE t = j - i + 1 IF (ans < 0 .or. t < ans) THEN ans = t END IF END DO END DO PRINT '(I0)', ans STOP END PROGRAM yukicoder