module Languages.UniquenessPeriods.Vector.FuncRepRelated where
import Languages.UniquenessPeriods.Vector.Data
import String.Languages.UniquenessPeriods.Vector
import Languages.UniquenessPeriods.Vector.PropertiesFuncRep
chooseMax :: String -> FuncRep String (UniquenessGeneral2 Char) [Float]
chooseMax xs
| xs == "y0" = procDiverse2F
| xs == "0y" = procRhythmicity23F
| xs == "y" = procBothF
| otherwise = procBothInvF
chooseMin :: String -> FuncRep String (UniquenessGeneral2 Char) [Float]
chooseMin xs
| xs == "y0" = procDiverse2Fneg
| xs == "0y" = procRhythmicity23Fneg
| xs == "y" = procBothFneg
| otherwise = procBothInvFneg
precChoice :: String -> Maybe Int
precChoice xs
| xs == "y0" || xs == "y" || xs == "0y" = Just 0
| otherwise = Just 4