Commits

Anonymous committed 03272a3

but in connections

Comments (0)

Files changed (1)

     let rec find src accu = match src with
       | [] -> accu
       | (a, b, c) :: lst -> 
-        if a = i then find lst (b :: c :: accu)
+        if a = i then find lst (b :: accu)
         else if b = i then find lst (a :: c :: accu)   
-        else if c = i then find lst (a :: b :: accu)
+        else if c = i then find lst (b :: accu)
         else find lst accu   
     in 
     find mills []