uniqueness-periods-vector-examples 0.9.0.0 → 0.9.1.0
raw patch · 3 files changed
+14/−9 lines, 3 filesdep ~phonetic-languages-ukrainiandep ~uniqueness-periods-vector-commondep ~uniqueness-periods-vector-general
Dependency ranges changed: phonetic-languages-ukrainian, uniqueness-periods-vector-common, uniqueness-periods-vector-general
Files
- ChangeLog.md +4/−0
- Lines/Main.hs +6/−5
- uniqueness-periods-vector-examples.cabal +4/−4
ChangeLog.md view
@@ -105,3 +105,7 @@ * Ninth version. Added the sixth command line argument except those ones in RTS for the processText executable to control whether if the executable is working in comparative mode printing two analyses at a time then to evaluate them in parallel or sequentially. The default one is in parallel, but if you would like to use possibly less resources then you can evaluate them in sequence. Some minor code improvements.++## 0.9.1.0 -- 2020-10-06++* Ninth version revised A. Fixed several issues with rewritePoem executable related to dependencies issues. Updated the dependencies bounds.
Lines/Main.hs view
@@ -29,8 +29,9 @@ let file = concat . take 1 $ args contents <- readFile file let flines = prepareText contents- lasts = map (\ts -> if null . words $ ts then [] else last . words $ ts) flines- zs = lastFrom3 . headU2 . fst . get22 . uniqNProperties2GN " 01-" (PA [] (concat . take 1 $ lasts)) 1 1 (V.singleton (oneProperty)) (uniquenessPeriodsVector3 " 01-" .+ mapM_ putStrLn flines+ let lasts = map (\ts -> if null . words $ ts then [] else last . words $ ts) flines+ zs = if compare (length . words . concat . take 1 $ flines) 3 == LT then concat . take 1 $ flines else lastFrom3 . headU2 . fst . get22 . uniqNProperties2GN " 01-" (PA [] (concat . take 1 $ lasts)) 1 1 (V.singleton (oneProperty)) (uniquenessPeriodsVector3 " 01-" . aux0 . convertToProperUkrainian) (justOneValue2Property . diverse2) . unwords . init . words . concat . take 1 $ flines toFile (file ++ "new.txt") (zs:(noDoubleWords . circle2 (concat . take 1 $ lasts) . drop 1 $ flines)) @@ -39,10 +40,10 @@ | null xss = [] | otherwise = let (zss,tss) = splitAt 1 xss in do let rs = words . concat $ zss- ws = lastFrom3 . headU2 . fst . get22 .+ ws = if compare (length rs) 3 == LT then unwords (xs:rs) else lastFrom3 . headU2 . fst . get22 . uniqNProperties2GN " 01-" (PA xs (if null rs then [] else last rs)) 1 1 (V.singleton (oneProperty)) (uniquenessPeriodsVector3 " 01-" .- aux0 . convertToProperUkrainian) (justOneValue2Property . diverse2) . unwords $- if null rs then [] else init rs in ws:circle2 (if null rs then [] else last rs) tss+ aux0 . convertToProperUkrainian) (justOneValue2Property . diverse2) . unwords . init $ rs in+ ws:circle2 (if null rs then [] else last rs) tss headU2 :: [UniquenessG1 a b] -> UniquenessG1 a b headU2 zs
uniqueness-periods-vector-examples.cabal view
@@ -3,7 +3,7 @@ -- http://haskell.org/cabal/users-guide/ name: uniqueness-periods-vector-examples-version: 0.9.0.0+version: 0.9.1.0 synopsis: Usage examples for the uniqueness-periods-vector series of packages description: Usage examples for the uniqueness-periods-vector series of packages. Several executables are planned to demonstrate the libraries work. homepage: https://hackage.haskell.org/package/uniqueness-periods-vector-examples@@ -21,7 +21,7 @@ main-is: Main.hs -- other-modules: -- other-extensions:- build-depends: base >=4.7 && <4.15, mmsyn6ukr >=0.8.1 && <1, vector >=0.11 && <0.14, uniqueness-periods-vector >=0.3 && <1, uniqueness-periods-vector-general >=0.4.4 && < 1, uniqueness-periods-vector-common >=0.4 && <1, uniqueness-periods-vector-properties >=0.3.1 && <1, print-info >=0.1.3 && <1, phonetic-languages-ukrainian >=0.2.2 && <1+ build-depends: base >=4.7 && <4.15, mmsyn6ukr >=0.8.1 && <1, vector >=0.11 && <0.14, uniqueness-periods-vector >=0.3 && <1, uniqueness-periods-vector-general >=0.4.5 && < 1, uniqueness-periods-vector-common >=0.4.1 && <1, uniqueness-periods-vector-properties >=0.3.1 && <1, print-info >=0.1.3 && <1, phonetic-languages-ukrainian >=0.2.3 && <1 hs-source-dirs: Simple default-language: Haskell2010 @@ -29,7 +29,7 @@ main-is: Main.hs -- other-modules: -- other-extensions:- build-depends: base >=4.7 && <4.15, mmsyn6ukr >=0.8.1 && <1, vector >=0.11 && <0.14, uniqueness-periods-vector >=0.3 && <1, uniqueness-periods-vector-general >=0.4.4 && < 1, uniqueness-periods-vector-common >=0.4 && <1, uniqueness-periods-vector-properties >=0.3.1 && <1, print-info >=0.1.3 && <1, phonetic-languages-ukrainian >=0.2.2 && <1, lists-flines >=0.1.1 && <1+ build-depends: base >=4.7 && <4.15, mmsyn6ukr >=0.8.1 && <1, vector >=0.11 && <0.14, uniqueness-periods-vector >=0.3 && <1, uniqueness-periods-vector-general >=0.4.5 && < 1, uniqueness-periods-vector-common >=0.4.1 && <1, uniqueness-periods-vector-properties >=0.3.1 && <1, print-info >=0.1.3 && <1, phonetic-languages-ukrainian >=0.2.3 && <1, lists-flines >=0.1.1 && <1 hs-source-dirs: Lines default-language: Haskell2010 @@ -37,7 +37,7 @@ main-is: Main.hs -- other-modules: other-extensions: CPP, BangPatterns, FlexibleInstances, MultiParamTypeClasses- build-depends: base >=4.7 && <4.15, mmsyn6ukr >=0.8.1 && <1, vector >=0.11 && <0.14, uniqueness-periods-vector >=0.3 && <1, uniqueness-periods-vector-general >=0.4.4 && < 1, uniqueness-periods-vector-common >=0.4 && <1, uniqueness-periods-vector-properties >=0.3.1 && <1, print-info >=0.1.3 && <1, phonetic-languages-ukrainian >=0.2.2 && <1, uniqueness-periods-vector-filters >=0.2 && <1, uniqueness-periods-vector-stats >=0.1.2 && <1, parallel >=3.2.0.6 && <4, lists-flines >=0.1.1 && <1+ build-depends: base >=4.7 && <4.15, mmsyn6ukr >=0.8.1 && <1, vector >=0.11 && <0.14, uniqueness-periods-vector >=0.3 && <1, uniqueness-periods-vector-general >=0.4.5 && < 1, uniqueness-periods-vector-common >=0.4.1 && <1, uniqueness-periods-vector-properties >=0.3.1 && <1, print-info >=0.1.3 && <1, phonetic-languages-ukrainian >=0.2.3 && <1, uniqueness-periods-vector-filters >=0.2 && <1, uniqueness-periods-vector-stats >=0.1.2 && <1, parallel >=3.2.0.6 && <4, lists-flines >=0.1.1 && <1 ghc-options: -threaded -rtsopts hs-source-dirs: Proportion default-language: Haskell2010