fork download
  1. let f877 s =
  2. let isspace c = c = ' ' || c = '\n' || c = '\r' || c = '\t' in
  3. let (r, c) = (ref 0, ref 0) in
  4. for i = 0 to String.length s - 1 do
  5. if s.[i] = '\n' then (r := !r + 1; c := 0)
  6. else if isspace s.[i] then c := !c + 1
  7. else (Printf.printf "[%c, %d, %d]\n" s.[i] !c !r; c := !c + 1)
  8. done
  9. let () = f877 "a b c\n\nd"
  10.  
Success #stdin #stdout 0s 16096KB
stdin
Standard input is empty
stdout
[a, 0, 0]
[b, 2, 0]
[c, 4, 0]
[d, 0, 2]