Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let rec sum(x:string, i:int, s:int)=
- if i<x.Length then
- if x.[i] = '-' then
- sum(x, i+2, s-int(int(x.[i+1])-48))
- else sum(x, i+2, s+int(int(x.[i+1])-48))
- else s
- let main() =
- seq { for i in 1 .. stdin.ReadLine()|> int do yield stdin.ReadLine() }
- |> Seq.iter (fun x -> System.Console.WriteLine(sum(x, 1, int(x.[0])-48)))
- main()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement