結果

問題 No.316 もっと刺激的なFizzBuzzをください
ユーザー toshiro_yanagitoshiro_yanagi
提出日時 2022-07-16 19:09:01
言語 Nim
(2.0.2)
結果
AC  
実行時間 2 ms / 1,000 ms
コード長 629 bytes
コンパイル時間 3,906 ms
コンパイル使用メモリ 63,872 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-06-28 19:08:45
合計ジャッジ時間 5,132 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
5,248 KB
testcase_01 AC 1 ms
5,248 KB
testcase_02 AC 2 ms
5,376 KB
testcase_03 AC 1 ms
5,376 KB
testcase_04 AC 1 ms
5,376 KB
testcase_05 AC 2 ms
5,376 KB
testcase_06 AC 1 ms
5,376 KB
testcase_07 AC 2 ms
5,376 KB
testcase_08 AC 1 ms
5,376 KB
testcase_09 AC 2 ms
5,376 KB
testcase_10 AC 2 ms
5,376 KB
testcase_11 AC 2 ms
5,376 KB
testcase_12 AC 1 ms
5,376 KB
testcase_13 AC 1 ms
5,376 KB
testcase_14 AC 2 ms
5,376 KB
testcase_15 AC 2 ms
5,376 KB
testcase_16 AC 1 ms
5,376 KB
testcase_17 AC 2 ms
5,376 KB
testcase_18 AC 1 ms
5,376 KB
testcase_19 AC 1 ms
5,376 KB
testcase_20 AC 2 ms
5,376 KB
testcase_21 AC 1 ms
5,376 KB
testcase_22 AC 2 ms
5,376 KB
testcase_23 AC 1 ms
5,376 KB
testcase_24 AC 2 ms
5,376 KB
testcase_25 AC 2 ms
5,376 KB
testcase_26 AC 2 ms
5,376 KB
testcase_27 AC 1 ms
5,376 KB
testcase_28 AC 1 ms
5,376 KB
testcase_29 AC 2 ms
5,376 KB
testcase_30 AC 1 ms
5,376 KB
testcase_31 AC 2 ms
5,376 KB
testcase_32 AC 2 ms
5,376 KB
testcase_33 AC 1 ms
5,376 KB
testcase_34 AC 2 ms
5,376 KB
testcase_35 AC 1 ms
5,376 KB
testcase_36 AC 1 ms
5,376 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

import strutils


proc nextString(): string =
  while not stdin.endOfFile:
    let c = stdin.readChar
    if c == ' ' or c == '\n': break
    elif c != '\r': result.add(c)


proc gcd(x, y: int): int =
  var a = x
  var b = y
  if a < b: swap(a, b)
  while b > 0:
    let m = a mod b
    a = b
    b = m
  return a


proc lcm(x, y: int): int =
  x * y div gcd(x, y)


proc main(): void =
  let
    n, a, b, c = parseInt(nextString())
  var
    ans = 0

  for t in [a, b, c]: ans += n div t

  for t in [lcm(a, b), lcm(b, c), lcm(c, a)]:
    ans -= n div t

  ans += n div lcm(lcm(a, b), c)

  echo ans


when isMainModule: main()
0