結果
問題 |
No.2997 Making YuzuKizu
|
ユーザー |
![]() |
提出日時 | 2025-01-21 07:20:20 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 19 ms / 2,000 ms |
コード長 | 811 bytes |
コンパイル時間 | 3,525 ms |
コンパイル使用メモリ | 41,216 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2025-01-21 07:20:26 |
合計ジャッジ時間 | 5,418 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 |
other | AC * 17 |
ソースコード
program Main implicit none character(1000001) :: S integer a, i, k, r, u, y, z integer ansY, ansA, ansX integer :: j = 1 data a, i, k, r, u, y, z/7*0/ read *, S do while (S(j:j) .ne. " ") select case(S(j:j)) case ("a") a = a + 1 case ("i") i = i + 1 case ("k") k = k + 1 case ("r") r = r + 1 case ("u") u = u + 1 case ("y") y = y + 1 case ("z") z = z + 1 end select j = j + 1 end do ansY = min(y, u, k, a, r, i) ansA = min(a/2, k, r, i) ansX = min(y, u/3, z/2, k, i) print *, ansY, ansA, ansX end program Main