binToInt :: [Int] -> Int
binToInt chromosome = binToInt' 0 base chromosome
    where base = 2^(length chromosome-1)
binToInt :: [Int] -> Int
binToInt chromosome = binToInt' 0 base chromosome
    where base = 2^(length chromosome-1)
binToInt chromosome = binToInt' 0 base chromosome
    where base = 2^(length chromosome-1)