main = do
  li <- getLine
  let [n,k] = map read $ words li
  let ans = compute n k
  print ans

{-
n >= k のとき n mod k になる
n < k のときは まずk-nになり、次に k-(k-n) = n に戻る。
そのいずれかの小さい方が答え。
-}

compute :: Int -> Int -> Int
compute n k
  | n >= k = compute (mod n k) k
  | True   = min n (k-n)
