結果
問題 | No.186 中華風 (Easy) |
ユーザー |
|
提出日時 | 2024-09-21 10:41:42 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
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 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 23 |
ソースコード
(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)))))