dobutokO-poetry 0.14.0.0 → 0.15.0.0

raw patch · 3 files changed

+26/−5 lines, 3 filesdep ~uniqueness-periodsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: uniqueness-periods

API changes (from Hackage documentation)

Files

• ChangeLog.md +6/−1
• DobutokO/Poetry/UniquenessPeriodsG.hs +18/−2
• dobutokO-poetry.cabal +2/−2

@@ -79,6 +79,11 @@  * Thirteenth version. Fixed issues with being not compiled.  -## 0.13.0.0 -- 2020-08-16+## 0.14.0.0 -- 2020-08-16  * Fourteenth version. Fixed issues with being not compiled. ++## 0.15.0.0 -- 2020-08-18++* Fifteenth version. Added new functions uniqueness2nG and uniquenessPeriodsN to the DobutokO.Poetry.UniquenessPeriodsG module. Some documentation improvements for the +module. Changed the dependency boundaries for uniqueness-periods.

@@ -45,12 +45,28 @@     let ys = f xs         y2s = mconcat . g $ ys in (ys,y2s) --- | Being given two functions as parameters uses them to create a longer list of 'Int' then application of only one of them. Besides, it can take into --- account the possible 0 and to create a non-negative list of 'Int' that can be used e. g. by 'DobutokO.Norms.splitNorm'.+-- | Being given two functions as parameters uses them to create a longer list of 'Int' than just application of only one of them. Besides, it can take into +-- account the possible 0 and to create a non-negative list of 'Int' that can be used e. g. by 'DobutokO.Poetry.Norms.splitNorm'. uniqueness2n :: ([String] -> [Int]) -> ([String] -> Int) -> Int -> ([[String]], [String]) -> [Int] uniqueness2n h f2 x (ys,y2s)   | x == 0 = fmap f2 ys ++ (0:h y2s)  | otherwise = fmap f2 ys ++ h y2s++-- | Approximates the higher order computational scheme of the 'uniqueness2n' function considering the latter one as the second order computational scheme. Because +-- of the possible concatenation and other not phonetic coversions it cannot be considered the exact one, but in some cases can give more information about phonetic +-- \"uniqueness periods\" structure, so is provided here for exploration.+uniqueness2nG :: Int -> ([String] -> [Int]) -> ([String] -> Int) -> Int -> ([[String]], [String]) -> [Int] +uniqueness2nG n h f2 x (ys,y2s)+ | compare n 2 == LT = error "DobutokO.Poetry.UniquenessPeriodsG.uniqueness2nG: undefined for that third argument. "+ | n == 2 = uniqueness2n h f2 x (ys,y2s)+ | x == 0 = fmap f2 ys ++ (0:(uniqueness2nG (n - 1) h f2 0 . uniqueness2 (show7s6) (uniquenessP2) . mconcat $ y2s))+ | otherwise = fmap f2 ys ++ (uniqueness2nG (n - 1) h f2 x . uniqueness2 (show7s6) (uniquenessP2) . mconcat $ y2s)++-- | Approximates the higher order computational scheme of the 'uniquenessPeriods2' function considering the latter one as the second order computational +-- scheme. Because of the possible concatenation and other not phonetic coversions it cannot be considered the exact one, but in some cases can give more +-- information about phonetic \"uniqueness periods\" structure, so is provided here for exploration.+uniquenessPeriodsN :: Int -> Int -> String -> [Int]+uniquenessPeriodsN n x = uniqueness2nG n (show7snc) (length) x . uniqueness2 (show7s6) (uniquenessP2)   -- | Filters a given arguments so that each element 'String' in the result is filtered from the element, which is doubled the first in the next 'String'  -- (usually, it equals to the head of it, if used as expected). Can be interpreted as a preparation to the second application of the 'uniquenessPeriods' 

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                dobutokO-poetry-version:             0.14.0.0+version:             0.15.0.0 synopsis:            Helps to order the 7 or less Ukrainian words to obtain somewhat suitable for poetry or music text description:         Helps to order the 7 or less Ukrainian words (or their concatenations) to obtain somewhat suitable for poetry or music text. Can be also used as a research instrument with generalized functions. @@ -21,7 +21,7 @@   exposed-modules:     DobutokO.Poetry.UniquenessPeriodsG, Main, DobutokO.Poetry.General, DobutokO.Poetry.General.Debug   -- other-modules:   other-extensions:    CPP-  build-depends:       base >=4.7 && <4.15, vector >=0.11 && <0.14, mmsyn3 >=0.1.5 && <1, mmsyn7s >=0.8 && <1, mmsyn6ukr >=0.8 && <1, uniqueness-periods >=0.1 && <1, dobutokO-poetry-general >=0.1 && <1+  build-depends:       base >=4.7 && <4.15, vector >=0.11 && <0.14, mmsyn3 >=0.1.5 && <1, mmsyn7s >=0.8 && <1, mmsyn6ukr >=0.8 && <1, uniqueness-periods >=0.2 && <1, dobutokO-poetry-general >=0.1 && <1   -- hs-source-dirs:   default-language:    Haskell2010