結果
問題 |
No.182 新規性の虜
|
ユーザー |
![]() |
提出日時 | 2016-07-30 09:08:58 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
TLE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 423 bytes |
コンパイル時間 | 289 ms |
コンパイル使用メモリ | 33,280 KB |
実行使用メモリ | 13,640 KB |
最終ジャッジ日時 | 2024-11-06 20:19:42 |
合計ジャッジ時間 | 10,623 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 6 TLE * 1 -- * 20 |
ソースコード
integer,allocatable::a(:),shinkisei(:) integer::i,j,shinki=0 read *, N allocate(a(N)) allocate(shinkisei(N)) read *,a shinkisei = 1 num = 0 do i = 1, N if(shinkisei(i).eq.0) cycle do j=1,N if (a(i).eq.a(j)) then if (i.eq.j) cycle shinkisei(j) = 0 goto 100 end if end do shinki = shinki + 1 100 end do print '(i0)', shinki end program