結果
問題 |
No.240 ナイト散歩
|
ユーザー |
![]() |
提出日時 | 2016-10-01 21:21:14 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 751 bytes |
コンパイル時間 | 737 ms |
コンパイル使用メモリ | 32,384 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-10-07 21:30:25 |
合計ジャッジ時間 | 1,949 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 30 |
ソースコード
program main implicit none logical::dp(-8:8,-8:8),dp2(-8:8,-8:8) integer::i,j,k integer*8::X,Y data dp/289*.false./ read *,X,Y if(abs(X).gt.6.or.abs(Y).gt.6) then print '(a)',"NO" return end if dp(0,0)=.true. do k=1,3 dp2 = dp do i=-6,6 do j=-6,6 dp2(i,j) = & dp(i-1,j-2).or. & dp(i+1,j+2).or. & dp(i-1,j+2).or. & dp(i+1,j-2).or. & dp(i-2,j-1).or. & dp(i+2,j+1).or. & dp(i-2,j+1).or. & dp(i+2,j-1) end do end do dp = dp.or.dp2 end do if(dp(X,Y).eqv..true.) then print '(a)',"YES" else print '(a)',"NO" end if end program main