結果

問題 No.593 4進FizzBuzz
コンテスト
ユーザー むらため
提出日時 2019-01-18 11:29:24
言語 Nim
(2.2.6)
結果
AC  
実行時間 17 ms / 2,000 ms
コード長 614 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 2,094 ms
コンパイル使用メモリ 60,984 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-07-01 10:15:37
合計ジャッジ時間 4,187 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 31
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

proc putchar_unlocked(c:char){.header: "<stdio.h>" .}
proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}
proc scanf(formatstr: cstring){.header: "<stdio.h>", varargs.}
proc printf(formatstr: cstring){.header: "<stdio.h>", varargs.}
var S : array[2e6.int+10,char]
scanf("%s",addr S)
var x3 = 0
var x5 = 0
var isOdd = true
for s in S:
  if s < '0': break
  let c = s.ord - '0'.ord
  x3 += c
  if isOdd: x5 += c
  else: x5 -= c
  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 :
  printf("%s\n",addr S)
0