結果

問題 No.593 4進FizzBuzz
ユーザー むらため
提出日時 2019-01-18 11:17:21
言語 Nim
(2.2.0)
結果
AC  
実行時間 18 ms / 2,000 ms
コード長 581 bytes
コンパイル時間 2,105 ms
コンパイル使用メモリ 61,056 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-07-01 10:15:21
合計ジャッジ時間 4,942 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 31
権限があれば一括ダウンロードができます

ソースコード

diff # 

proc putchar_unlocked(c:char){.header: "<stdio.h>" .}
proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}
var S : array[2e6.int+10,char]
var n = 0
var x3 = 0
var x5 = 0
var isOdd = false
while true:
  var k = getchar_unlocked()
  if k < '0' or k > '9': break
  let c = k.ord - '0'.ord
  x3 += c
  if isOdd: x5 += c
  else: x5 -= c
  S[n] = k
  n += 1
  isOdd = not isOdd

if x3 mod 3 == 0:
  if x5 mod 5 == 0: echo "FizzBuzz"
  else: echo "Fizz"
elif x5 mod 5 == 0 : echo "Buzz"
else :
  for i in 0..<n: putchar_unlocked(S[i])
  putchar_unlocked('\n')
0