結果

問題 No.380 悪の台本
ユーザー むらためむらため
提出日時 2019-01-24 03:29:48
言語 Nim
(2.0.2)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,281 bytes
コンパイル時間 543 ms
コンパイル使用メモリ 44,708 KB
最終ジャッジ日時 2023-09-14 02:41:03
合計ジャッジ時間 958 ms
ジャッジサーバーID
（参考情報） 		judge12 / judge13
このコードへのチャレンジ（β）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、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 getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}
proc check(S:string) : bool =
  const names = ["digi ","petit ","gema ","piyo "]
  const lasts = ["nyo","nyu","gema","pyo"]
  proc isSymbol(c:char) : bool =
    if 'a' <= c and c <= 'z' : return false
    if '0' <= c and c <= '9' : return false
    if 'A' <= c and c <= 'Z' : return false
    return true
  if S.startsWith("rabi "):
    return S[5..^1].anyIt(not it.isSymbol())
  for i,name in names:
    if not S.startsWith(name): continue
    let lower = S.toLower()[name.len..^1]
    if lower.endsWith(lasts[i]) : return true
    for j in 1..3:
      if lower.len - j - lasts[i].len < 0 : continue
      let llast = lower[^(j+(lasts[i].len))..^(j+1)]
      if llast != lasts[i]: continue
      if lower[^j..^1].allIt(it.isSymbol()) : return true
  return false

var line = ""
while true:
  let k = getchar_unlocked()
  if k == '\n':
    if line.check(): echo "CORRECT (maybe)"
    else: echo "WRONG!"
    line = ""
    continue
  if k.ord < 32 or k.ord > 126: break
  line &= k
0