File: source.ml (return to index)



Statistics:  
kind coverage
binding 1 / 1 (100%)
sequence 1 / 1 (100%)
for 1 / 1 (100%)
if/then 0 / 0 (-%)
try 1 / 1 (100%)
while 0 / 0 (-%)
match/function 3 / 3 (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 0 / 0 (-%)



Source:

fold all unfold all
000001| let rec fibo = function
000002|   | 0 | 1 -> (*[13462690]*)1
000003|   | n -> (*[13462680]*)(fibo (n - 2)) + (fibo (n - 1))
000004|  
000005| let () =
000006|     (*[1]*)for i = 1 to 10 do
000007|       (*[10]*)ignore (fibo 30);
000008|       (*[10]*)ignore (try (*[10]*)raise Not_found with _ -> (*[10]*)1 + 1);
000009|     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