結果
問題 | No.406 鴨等間隔の法則 |
ユーザー |
![]() |
提出日時 | 2016-08-05 22:45:42 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
MLE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 599 bytes |
コンパイル時間 | 557 ms |
コンパイル使用メモリ | 32,256 KB |
実行使用メモリ | 272,384 KB |
最終ジャッジ日時 | 2024-11-07 02:19:26 |
合計ジャッジ時間 | 3,523 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 28 MLE * 1 |
ソースコード
integer::N,i,start=10**8,kankaku integer,allocatable::x(:) integer::zahyou(0:10**8) data zahyou/100000001*0/ read *, N allocate(x(N)) read *, x do i=1,N if(zahyou(x(i)).eq.1) then print '(a)', "NO" return end if zahyou(x(i)) = 1 start = MIN(start, x(i)) end do do i=start+1,10**8 if(zahyou(i).eq.1) then kankaku = i - start exit end if end do do i=start, start+(N-1)*kankaku, kankaku if(zahyou(i).ne.1) then print '(a)', "NO" return end if end do print '(a)', "YES" end program