結果

問題 No.186 中華風 (Easy)
ユーザー keidenkeiden
提出日時 2024-09-21 10:41:42
言語 Scheme
(Gauche-0.9.14)
結果
AC  
実行時間 28 ms / 2,000 ms
コード長 1,530 bytes
コンパイル時間 174 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 16,256 KB
最終ジャッジ日時 2024-09-21 10:41:44
合計ジャッジ時間 2,216 ms
ジャッジサーバーID
(参考情報)
judge3 / judge1
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 22 ms
16,000 KB
testcase_01 AC 21 ms
16,128 KB
testcase_02 AC 21 ms
16,128 KB
testcase_03 AC 21 ms
16,000 KB
testcase_04 AC 22 ms
16,000 KB
testcase_05 AC 21 ms
16,000 KB
testcase_06 AC 21 ms
16,000 KB
testcase_07 AC 22 ms
16,128 KB
testcase_08 AC 21 ms
16,000 KB
testcase_09 AC 28 ms
16,000 KB
testcase_10 AC 22 ms
16,000 KB
testcase_11 AC 22 ms
16,000 KB
testcase_12 AC 22 ms
16,128 KB
testcase_13 AC 21 ms
16,000 KB
testcase_14 AC 21 ms
16,000 KB
testcase_15 AC 21 ms
16,000 KB
testcase_16 AC 22 ms
16,000 KB
testcase_17 AC 23 ms
16,128 KB
testcase_18 AC 21 ms
16,000 KB
testcase_19 AC 21 ms
16,000 KB
testcase_20 AC 21 ms
16,000 KB
testcase_21 AC 22 ms
16,000 KB
testcase_22 AC 21 ms
16,256 KB
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

(define (extended-euclidean-algorithm a b)
(if (= b 0)
(list a 1 0)
(let*
(
(result (extended-euclidean-algorithm b (modulo a b)))
(g (car result))
(x (cadr result))
(y (caddr result))
)
(list g y (- x (* y (quotient a b)))))))
(define (chinese-remainder-theorem rs ms)
(let loop ((r (car rs)) (m (car ms)) (rx (cdr rs)) (mx (cdr ms)))
(if (or (null? rx) (null? mx))
(cons r m)
(let*
((r0 (car rx)) (m0 (car mx)))
(if (and (= r0 -1) (= m0 0))
(cons -1 0)
(let*
(
(r1 (modulo r0 m0))
(g (gcd m m0))
(l (lcm m m0))
)
(if (not (= (modulo r g) (modulo r1 g)))
(cons -1 0)
(let*
(
(euclid-result (extended-euclidean-algorithm (/ m0 g) (/ m g)))
(x (cadr euclid-result))
)
(loop
(modulo (+ r1 (* m0 (* (/ (- r r1) g) (modulo x (/ m g))))) l)
l
(cdr rx)
(cdr mx))))))))))
(define yuki186
(let*
(
(x1 (read))
(y1 (read))
(x2 (read))
(y2 (read))
(x3 (read))
(y3 (read))
(rs (list x1 x2 x3))
(ms (list y1 y2 y3))
(rm (chinese-remainder-theorem rs ms))
(r (car rm))
(m (cdr rm))
)
(display
(cond
((= r -1) -1)
((zero? r) m)
(else r)
)
)
)
)
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0