結果
問題 | No.2104 Multiply-Add |
ユーザー |
![]() |
提出日時 | 2024-11-26 23:52:52 |
言語 | Nim (2.2.0) |
結果 |
RE
|
実行時間 | - |
コード長 | 1,265 bytes |
コンパイル時間 | 4,312 ms |
コンパイル使用メモリ | 70,056 KB |
実行使用メモリ | 6,824 KB |
最終ジャッジ日時 | 2024-11-26 23:52:59 |
合計ジャッジ時間 | 6,612 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 31 RE * 1 |
ソースコード
import algorithm, math, sequtils, strscans, strutilsproc m_m(x, y: int): auto =let n = 0 - (x.abs.succ / y.abs).ceil.int(n, x + y * n)proc m_p(x, y: int): auto =let n = (x.abs.succ / y).ceil.int(n, x + y * n)proc p_p(x, y: int): auto =(0 - x.pred div y, succ x.pred mod y)let(_, a, b, c, d) = stdin.readAll.scanTuple"$i $i $i $i"varxs: seq[int]fs: seq[seq[array[2, int]]]for (x0, y0) in [(a, b), (c, d)]:varflow: seq[array[2, int]]x = x0y = y0k: intif 0 in [x, y]:if x == 0 and y == 0:xs.add 0continueif x == 0:x = abs yflow.add [1, sgn y]else:y = abs xflow.add [2, sgn x]if [x, y].anyIt(it < 0):if x < 0 and y < 0:(k, x) = m_m(x, y)flow.add [1, k]if x < 0:(k, x) = m_p(x, y)flow.add [1, k]if y < 0:(k, y) = m_p(y, x)flow.add [2, k]while x != y:if x > y:(k, x) = p_p(x, y)flow.add [1, k]continueif x < y:(k, y) = p_p(y, x)flow.add [2, k]continuexs.add xfs.add flowif xs[0] != xs[1]:echo -1quit()reverse fs[1]fs[1].applyIt [it[0], -it[1]]letlist = concat fsecho len listfor v in list:echo v.join " "