Submission #2180637

---

Source Code Expand

open System
open System.Collections
open System.Collections.Generic
open System.IO
open System.Linq

[<AutoOpen>] 
module input =
    let Str()  = Console.ReadLine()
    let Int()  = Str() |> int
    let Char() = Str() |> char
    let CharList()  = [ for c in Str() -> c ]
    let CharArray() = [|for c in Str() -> c|]

[<AutoOpen>] 
module parse =
    let c2s (c:obj) = 
        match c with
        | :? (char[])    as c -> new string(c)
        | :? (char list) as c -> c|>Array.ofList|>String
        | :?  char       as c -> c.ToString()
        | _ -> failwith ""
    let c2i c = c2s(c) |> int

[<EntryPoint>]
let main _ = 
    let a = Int()
    let b = Int()

    let ans = 
        let t = a%b
        match t with
        | 0 -> 0
        | x -> b-x
        |> printfn "%i"
    
    0
    

Submission Info

Judge Result