File: source.ml (return to index)



Statistics:  
kind coverage
binding 3 / 3 (100%)
sequence 5 / 5 (100%)
for 1 / 1 (100%)
if/then 0 / 0 (-%)
try 0 / 0 (-%)
while 0 / 0 (-%)
match/function 2 / 2 (100%)
kind coverage
class expression 0 / 0 (-%)
class initializer 0 / 0 (-%)
class method 0 / 0 (-%)
class value 0 / 0 (-%)
toplevel expression 0 / 0 (-%)
lazy operator 2 / 2 (100%)



Source:

000001| let inf = (*[2]*)ref 0
000002| let sup = (*[2]*)ref 3
000003|  
000004| let args = [
000005|   (*[2]*)("-inf", (Arg.Set_int inf), "inferior bound") ;
000006|   ("-sup", (Arg.Set_int sup), "superior bound")
000007| ]
000008|  
000009| let kind = function
000010|   | x when (*[9]*)x > 9 || (*[7]*)x < 0 -> (*[2]*)print_endline "not a digit"
000011|   | _ -> (*[7]*)print_endline "digit"
000012|  
000013| let print x =
000014|   (*[9]*)print_int x;
000015|   (*[9]*)print_newline ()
000016|  
000017| let () =
000018|   (*[2]*)Arg.parse args ignore "report test";
000019|   (*[2]*)for i = !inf to !sup do
000020|     (*[9]*)kind i;
000021|     (*[9]*)print i
000022|   done

Legend:
   some code - line containing no point
   some code - line containing only visited points
   some code - line containing only unvisited points
   some code - line containing both visited and unvisited points