! 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