map length (tiers :: [[ Float ]]) = [1,1,2,3,2,2,2,4,4,2,2,6,...] length (list :: [ Float ]) = Infinity allUnique (list :: [ Float ]) = True ratioRepetitions (list :: [ Float ]) = 0 % 1 tiers :: [Float] = [ [0.0] , [1.0] , [ -1.0 , Infinity ] , [ 0.5 , 2.0 , -Infinity ] , [ -0.5 , -2.0 ] , [ 0.33333334 , 3.0 ] , [ -0.33333334 , -3.0 ] , [ 0.25 , 0.6666667 , 1.5 , 4.0 ] , [ -0.25 , -0.6666667 , -1.5 , -4.0 ] , [ 0.2 , 5.0 ] , [ -0.2 , -5.0 ] , [ 0.16666667 , 0.4 , 0.75 , 1.3333334 , 2.5 , 6.0 ] , ... ]