phonetic-languages-simplified-properties-lists 0.1.0.0 → 0.1.2.0
raw patch · 4 files changed
+11/−36 lines, 4 filesdep ~ukrainian-phonetics-basicPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: ukrainian-phonetics-basic
API changes (from Hackage documentation)
- Phonetic.Languages.Lists.Ukrainian.PropertiesSyllablesG: rhythmicityV :: String -> Coeffs2 -> Vector Char -> Float
- Phonetic.Languages.Lists.Ukrainian.PropertiesSyllablesG: rhythmicityV0 :: Vector Char -> Float
- Phonetic.Languages.Lists.Ukrainian.PropertiesSyllablesG: rhythmicityV02 :: Vector Char -> Float
- Phonetic.Languages.Lists.Ukrainian.PropertiesSyllablesG: rhythmicityVK :: Float -> Float -> Vector Char -> Float
- Phonetic.Languages.Lists.Ukrainian.PropertiesSyllablesG: rhythmicityVK2 :: Float -> Float -> Vector Char -> Float
Files
- CHANGELOG.md +8/−0
- Phonetic/Languages/Lists/Ukrainian/PropertiesFuncRepG.hs +1/−1
- Phonetic/Languages/Lists/Ukrainian/PropertiesSyllablesG.hs +0/−33
- phonetic-languages-simplified-properties-lists.cabal +2/−2
CHANGELOG.md view
@@ -4,3 +4,11 @@ * First version. Released on an unsuspecting world. +## 0.1.1.0 -- 2020-11-25++* First version revised A. Changed the dependency boundaries for ukrainian-phonetics-basic.++## 0.1.2.0 -- 2020-11-26++* First version revised B. Fixed issue with procB2InvF function from the Phonetic.Languages.Lists.Ukrainian.PropertiesFuncRepG module. Removed the+vector-based functions from the Phonetic.Languages.Lists.Ukrainian.PropertiesSyllablesG module (they are not needed here).
Phonetic/Languages/Lists/Ukrainian/PropertiesFuncRepG.hs view
@@ -230,7 +230,7 @@ -> FuncRep2 String Float c procB2InvF h g coeffs = D (\xs -> let !ys = convertToProperUkrainianS . map (\x -> if x == '-' then ' ' else x) $ xs- !z = diverse2GL " 01-" ys in if z == 0 then ((evalRhythmicity23 . mconcat . g . S.createSyllablesUkrS $ ys) * (eval23Coeffs coeffs . mconcat . g . S.createSyllablesUkrS $ ys)) else ((eval23Coeffs coeffs . mconcat . g . S.createSyllablesUkrS $ ys) / (int2Float . fromEnum $ z))) h+ !z = diverse2GL " 01-" ys in if z == 0 then ((eval23Coeffs coeffs . mconcat . g . S.createSyllablesUkrS $ ys) * (eval23Coeffs coeffs . mconcat . g . S.createSyllablesUkrS $ ys)) else ((eval23Coeffs coeffs . mconcat . g . S.createSyllablesUkrS $ ys) / (int2Float . fromEnum $ z))) h {-# INLINE procB2InvF #-} -- | Can be used to find out the minimum element.
Phonetic/Languages/Lists/Ukrainian/PropertiesSyllablesG.hs view
@@ -23,20 +23,15 @@ -- * Rhythmicity metrices (semi-empirical) -- ** Simple ones , rhythmicity0- , rhythmicityV0 -- ** With weight coefficients- , rhythmicityVK , rhythmicityK -- * Rhythmicity metrices from generated with r-glpk-phonetic-languages-ukrainian-durations package (since 0.2.0.0 version) -- ** Simple ones , rhythmicity02- , rhythmicityV02 -- ** With weight coefficients- , rhythmicityVK2 , rhythmicityK2 -- * General , rhythmicity- , rhythmicityV ) where #ifdef __GLASGOW_HASKELL__@@ -102,16 +97,6 @@ | null xs = 0.0 | otherwise = eval23K k2 k3 . syllableDurations . createSyllablesUkrP $ xs -rhythmicityV0 :: VB.Vector Char -> Float-rhythmicityV0 v- | VB.null v = 0.0- | otherwise = eval23 . syllableDurations . createSyllablesUkrV $ v--rhythmicityVK :: Float -> Float -> VB.Vector Char -> Float-rhythmicityVK k2 k3 v- | VB.null v = 0.0- | otherwise = eval23K k2 k3 . syllableDurations . createSyllablesUkrVP $ v- ------------------------------------------------------- rhythmicity02 :: String -> Float@@ -124,16 +109,6 @@ | null xs = 0.0 | otherwise = eval23K k2 k3 . syllableDurations2 . createSyllablesUkrP $ xs -rhythmicityV02 :: VB.Vector Char -> Float-rhythmicityV02 v- | VB.null v = 0.0- | otherwise = eval23 . syllableDurations2 . createSyllablesUkrV $ v--rhythmicityVK2 :: Float -> Float -> VB.Vector Char -> Float-rhythmicityVK2 k2 k3 v- | VB.null v = 0.0- | otherwise = eval23K k2 k3 . syllableDurations2 . createSyllablesUkrVP $ v- ------------------------------------------------------------------ rhythmicity :: String -> Coeffs2 -> String -> Float@@ -143,11 +118,3 @@ rhythmicity choice (CF2 x y) | choice == "0y" = rhythmicityK (fromMaybe 1.0 x) (fromMaybe 1.0 y) | otherwise = rhythmicityK2 (fromMaybe 1.0 x) (fromMaybe 1.0 y)--rhythmicityV :: String -> Coeffs2 -> VB.Vector Char -> Float-rhythmicityV choice CF0- | choice == "0y" = rhythmicityV0- | otherwise = rhythmicityV02-rhythmicityV choice (CF2 x y)- | choice == "0y" = rhythmicityVK (fromMaybe 1.0 x) (fromMaybe 1.0 y)- | otherwise = rhythmicityVK2 (fromMaybe 1.0 x) (fromMaybe 1.0 y)
phonetic-languages-simplified-properties-lists.cabal view
@@ -2,7 +2,7 @@ -- For further documentation, see http://haskell.org/cabal/users-guide/ name: phonetic-languages-simplified-properties-lists-version: 0.1.0.0+version: 0.1.2.0 synopsis: A generalization of the uniqueness-periods-vector-properties package. description: Is a simplified version of the functionality of the former one. Uses lists as main processment data. homepage: https://hackage.haskell.org/package/phonetic-languages-simplified-properties-lists@@ -20,6 +20,6 @@ exposed-modules: Phonetic.Languages.Lists.Ukrainian.PropertiesFuncRepG, Phonetic.Languages.Lists.Ukrainian.PropertiesSyllablesG -- other-modules: other-extensions: BangPatterns, CPP- build-depends: base >=4.7 && <4.15, vector >=0.11 && <0.14, phonetic-languages-rhythmicity >=0.1.2 && <1, phonetic-languages-simplified-common >=0.3 && <1, ukrainian-phonetics-basic >=0.3 && <1+ build-depends: base >=4.7 && <4.15, vector >=0.11 && <0.14, phonetic-languages-rhythmicity >=0.1.2 && <1, phonetic-languages-simplified-common >=0.3 && <1, ukrainian-phonetics-basic >=0.3.1 && <1 -- hs-source-dirs: default-language: Haskell2010