結果

問題 No.186 中華風 (Easy)
ユーザー keiden
提出日時 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
権限があれば一括ダウンロードができます

ソースコード

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