結果
問題 | No.240 ナイト散歩 |
ユーザー |
|
提出日時 | 2019-01-19 16:25:54 |
言語 | Nim (2.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 886 bytes |
コンパイル時間 | 2,361 ms |
コンパイル使用メモリ | 61,356 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-07-01 10:21:33 |
合計ジャッジ時間 | 3,416 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 30 |
コンパイルメッセージ
/home/judge/data/code/Main.nim(1, 27) Warning: imported and not used: 'math' [UnusedImport] /home/judge/data/code/Main.nim(1, 17) Warning: imported and not used: 'algorithm' [UnusedImport]
ソースコード
import sequtils,algorithm,mathproc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}proc scan(): int =var minus = falsewhile true:var k = getchar_unlocked()if k == '-' : minus = trueelif k < '0' or k > '9': breakelse: result = 10 * result + k.ord - '0'.ordif minus: result *= -1type Pos = tuple[x,y:int]proc `+`(p,v:Pos):Pos = (p.x+v.x,p.y+v.y)proc `==`(p,v:Pos):bool = p.x == v.x and p.y == v.yconst oks = (proc():seq[Pos] =var oks = newSeq[Pos]()const diffs : seq[Pos] = @[(1,2),(2,1),(-1,-2),(-2,-1),(-1,2),(-2,1),(1,-2),(2,-1)]oks &= (0,0)for i in 0..<3:for ok in toSeq(oks.items):for p in diffs: oks &= p + okreturn oks.mapIt((it.x.abs,it.y.abs)).deduplicate())()let x = scan()let y = scan()let pos :Pos = (x.abs,y.abs)for p in oks:if p == pos:echo "YES"quit 0echo "NO"