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