結果
問題 |
No.2997 Making YuzuKizu
|
ユーザー |
![]() |
提出日時 | 2025-01-20 23:04:10 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
RE
|
実行時間 | - |
コード長 | 811 bytes |
コンパイル時間 | 4,342 ms |
コンパイル使用メモリ | 41,088 KB |
実行使用メモリ | 5,688 KB |
最終ジャッジ日時 | 2025-01-20 23:04:17 |
合計ジャッジ時間 | 3,400 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 |
other | AC * 14 RE * 3 |
ソースコード
program Main implicit none character(1000000) :: 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