結果
| 問題 | No.182 新規性の虜 |
| ユーザー |
 jj
|
| 提出日時 | 2016-07-30 09:00:33 |
| 言語 | Fortran (gFortran 13.2.0) |
| 結果 |
MLE
|
| 実行時間 | - |
| コード長 | 261 bytes |
| コンパイル時間 | 195 ms |
| コンパイル使用メモリ | 33,280 KB |
| 実行使用メモリ | 815,432 KB |
| 最終ジャッジ日時 | 2024-04-24 12:26:29 |
| 合計ジャッジ時間 | 3,865 ms |
|
ジャッジサーバーID （参考情報） |
judge4 / judge3 |
（要ログイン）
テストケース
テストケース表示| 入力 | 結果 | 実行時間 実行使用メモリ |
|---|---|---|
| testcase_00 | MLE | - |
| testcase_01 | -- | - |
| testcase_02 | -- | - |
| testcase_03 | -- | - |
| testcase_04 | -- | - |
| testcase_05 | -- | - |
| testcase_06 | -- | - |
| testcase_07 | -- | - |
| testcase_08 | -- | - |
| testcase_09 | -- | - |
| testcase_10 | -- | - |
| testcase_11 | -- | - |
| testcase_12 | -- | - |
| testcase_13 | -- | - |
| testcase_14 | -- | - |
| testcase_15 | -- | - |
| testcase_16 | -- | - |
| testcase_17 | -- | - |
| testcase_18 | -- | - |
| testcase_19 | -- | - |
| testcase_20 | -- | - |
| testcase_21 | -- | - |
| testcase_22 | -- | - |
| testcase_23 | -- | - |
| testcase_24 | -- | - |
| testcase_25 | -- | - |
| testcase_26 | -- | - |
| testcase_27 | -- | - |
| evil01.txt | -- | - |
| evil02.txt | -- | - |
ソースコード
integer,allocatable::a(:)
integer(kind=1)::num(1000000000)
data num/1000000000*0_1/
integer::i
read *, N
allocate(a(N))
read *,a
num = 0
do i = 1, N
num(a(i)) = MIN(num(a(i)) + 1_1,2)
end do
print '(i0)', COUNT(num.eq.1)
end program