結果

問題 No.232 めぐるはめぐる (2)
ユーザー むらためむらため
提出日時 2019-01-25 16:13:36
言語 Nim
(2.0.2)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,359 bytes
コンパイル時間 521 ms
コンパイル使用メモリ 51,272 KB
最終ジャッジ日時 2024-04-27 02:46:56
合計ジャッジ時間 911 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
/home/judge/data/code/Main.nim(2, 21) Error: cannot open file: queues

ソースコード

diff # 

import sequtils,algorithm,math,tables
import sets,intsets,queues,heapqueue,bitops,strutils
template times*(n:int,body) = (for _ in 0..<n: body)
template `max=`*(x,y) = x = max(x,y)
template `min=`*(x,y) = x = min(x,y)
proc printf(formatstr: cstring){.header: "<stdio.h>", varargs.}
proc put(c:char){. importc:"putchar_unlocked",header: "<stdio.h>" .}
proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}
proc scan(): int =
  while true:
    let k = getchar_unlocked()
    if k < '0': break
    result = 10 * result + k.ord - '0'.ord

var t = scan()
var a = scan()
var b = scan()
if t < max(a,b) : quit "NO",0
if a == 0 and b == 0 and t == 1:quit "NO",0
printf("YES\n")
if a == 0 and b == 0 and t mod 2 == 1:
  printf(">\n^\n<v\n")
  t -= 3
let m = max(a,b) + 2
while t >= m:
  printf(">\n<\n")
  t -= 2
  # put('>')
  # put('\n')
  # put('<')
  # put('\n')

if t == max(a,b) + 1:
  # 斜めのところか 上に登るところで一回余裕を挟む
  if a == b :
    printf(">\n^\n")
    a -= 1
    b -= 1
  elif a > b:
    printf("^>\n<\n")
    a -= 1
  else :
    printf("^>\nv\n")
    b -= 1
  t -= 2

min(a,b).times:
  printf(">^\n")
  # put('>')
  # put('^')
  # put('\n')
if a > b:
  (a-b).times:
    printf("^\n")
    # put('^')
    # put('\n')
elif b > a:
  (b-a).times:
    printf(">\n")
    # put('>')
    # put('\n')
0