結果
問題 | No.186 中華風 (Easy) |
ユーザー | keiden |
提出日時 | 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 |
ソースコード
(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)))))