Advertisement
Guest User

Untitled

a guest
Apr 1st, 2020
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. let rec sum(x:string, i:int, s:int)=
  2. if i<x.Length then
  3. if x.[i] = '-' then
  4. sum(x, i+2, s-int(int(x.[i+1])-48))
  5. else sum(x, i+2, s+int(int(x.[i+1])-48))
  6. else s
  7. let main() =
  8. seq { for i in 1 .. stdin.ReadLine()|> int do yield stdin.ReadLine() }
  9. |> Seq.iter (fun x -> System.Console.WriteLine(sum(x, 1, int(x.[0])-48)))
  10. main()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement