Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let pi: double = System.Math.Acos(-1.0)
- let pieceWidth(a:int64, b:int64)=
- if (a.ToString()|>int)%2=0 then
- sprintf "%.3f" ((2.0*pi*float(a)/2.0)/float(b))
- else
- sprintf "%.3f" ((2.0*pi*float(a)/2.0)/(float(b)*2.0))
- let amountOfCuts(a: int64)=
- if a%int64(2)<>int64(0) then a else a/int64(2)
- let main() =
- seq { for i in 1 .. stdin.ReadLine()|> int do yield stdin.ReadLine() }
- |> Seq.iter (fun x -> printfn "%s %s" (pieceWidth(x.Split(" ").[0]|>int64, x.Split(" ").[1]|>int64)) (amountOfCuts(x.Split(" ").[1]|>int64).ToString()))
- main()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement