Commit 4d3527a1 authored by Martin Clochard's avatar Martin Clochard

gallery (fibonacci): remove unused variables

parent ad27f7b0
......@@ -250,8 +250,8 @@ module Zeckendorf
match l1 , l2 with
| Nil , Nil -> ()
| Nil , l | l , Nil -> let _ = decomp 2 0 l l in absurd
| _ , _ -> let (a1,q1) = decomp 2 0 l1 l1 in
let (a2,q2) = decomp 2 0 l2 l2 in
| _ , _ -> let (_,q1) = decomp 2 0 l1 l1 in
let (_,q2) = decomp 2 0 l2 l2 in
zeckendorf_unique q1 q2
end
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment