; A * x + y = B のとき 「B 割る A = 商 x あまり y」 ; というので解 x があるときは y == 0 であるとき ; つまり B % A == 0 のとき x = B / A を出力する ; y != 0 のときは NO を出力する (defun main (&rest argv) (declare (ignorable argv)) (let* ((a (read)) (b (read))) (princ (if (zerop (mod b a)) (floor b a) 'NO)) (terpri))) (main)