binToDouble:: Double -> [Int] -> Double
binToDouble n chromosome = binToDouble' 0 base chromosome
    where base = 2**(n-1) -- | n = 1 means 1 digit before "."; means (2^0)*digit
binToDouble:: Double -> [Int] -> Double
binToDouble n chromosome = binToDouble' 0 base chromosome
    where base = 2**(n-1) -- | n = 1 means 1 digit before "."; means (2^0)*digit
binToDouble n chromosome = binToDouble' 0 base chromosome
    where base = 2**(n-1) -- | n = 1 means 1 digit before "."; means (2^0)*digit