map length (tiers :: [[ Double ]]) = [1,1,2,3,2,2,2,4,4,2,2,6,...] length (list :: [ Double ]) = Infinity allUnique (list :: [ Double ]) = True ratioRepetitions (list :: [ Double ]) = 0 % 1 tiers :: [Double] = [ [0.0] , [1.0] , [ -1.0 , Infinity ] , [ 0.5 , 2.0 , -Infinity ] , [ -0.5 , -2.0 ] , [ 0.3333333333333333 , 3.0 ] , [ -0.3333333333333333 , -3.0 ] , [ 0.25 , 0.6666666666666666 , 1.5 , 4.0 ] , [ -0.25 , -0.6666666666666666 , -1.5 , -4.0 ] , [ 0.2 , 5.0 ] , [ -0.2 , -5.0 ] , [ 0.16666666666666666 , 0.4 , 0.75 , 1.3333333333333333 , 2.5 , 6.0 ] , ... ]