fork download
copy 
  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
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[a, 0, 0]
[b, 2, 0]
[c, 4, 0]
[d, 0, 2]
https://ideone.com/waZZh7
language:
OCaml (ocamlopt 4.05.0)
created:
5 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!