phonetic-languages-plus 0.1.1.0 → 0.1.2.0

raw patch · 3 files changed

+11/−6 lines, 3 filesdep ~uniqueness-periods-vector-statsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: uniqueness-periods-vector-stats

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• Distribution/Main.hs +5/−4
• phonetic-languages-plus.cabal +2/−2

@@ -3,3 +3,7 @@ ## 0.1.0.0 -- 2020-10-30  * First version. Released on an unsuspecting world.++## 0.1.2.0 -- 2020-12-07++* First version revised B. Fixed issues with being wrongly counted and displayed the number of one-word lines.

@@ -35,7 +35,7 @@ #endif #endif import Control.Parallel.Strategies-import Data.Maybe (fromMaybe)+import Data.Maybe (fromMaybe,mapMaybe) import Text.Read (readMaybe) import System.Environment import Numeric (showFFloat)@@ -64,8 +64,9 @@   if printInput == "1" then B.putStr contents else B.putStr B.empty   (!data31,!wordsCnt0_data32) <- processContents contents   let !gz = getIntervalsN gzS data31 -- Obtained from the first command line argument except those ones that are for RTS-      !data4 = filter (/= 0.0) data31-  if null data4 then putStrLn (replicate 102 '-') >> putStrLn "1.000+-0.000\tALL!" >> putStrLn (replicate 102 '=') -- Well, this means that all the text consists of the unique (in phonetic meaning) words alongside every line. A rather rare occurrence.+      !pair2s = zip data31 wordsCnt0_data32+      !data4 = mapMaybe (\(!x,(!y,_)) -> if y > 1 then Just x else Nothing) pair2s+  if null data4 then putStrLn (replicate 102 '-') >> putStrLn "1.000+-0.000\tALL!" >> putStrLn (replicate 102 '=') -- Well, this means that all the text consists of the lines with no more than 1 word every one. A rather rare occurrence.   else do       let (!mean1,!disp) = meanWithDispD2 data4           !pairs = sort . filter ((/= 0) . snd) $ wordsCnt0_data32@@ -100,7 +101,7 @@      !s = sum ks in        mconcat [replicate 102 '-', newLineEnding, mconcat . map (\r -> show r ++ "\t") $ [1..gz], newLineEnding, mconcat . map (\r ->  show r ++ "\t") $ ks,          newLineEnding, mconcat . map (\r -> showFFloat (Just 2) (fromIntegral (r * 100) / fromIntegral s)  "%\t") $ ks,newLineEnding,-          mconcat [showFFloat (Just 4) mean1 "+-", showFFloat (Just 4) (sqrt disp) "\t", show (length . filter (== 0.0) $ data31),+          mconcat [showFFloat (Just 4) mean1 "+-", showFFloat (Just 4) (sqrt disp) "\t", show (length . filter ((<= 1) . fst) $ pairs),            '\t':show (length data31)], newLineEnding, mconcat . map (\r -> show r ++ "\t") $ [2..7], newLineEnding, mconcat .               map (\r ->  (show . length . takeWhile (== r) . dropWhile (/= r) . map fst $ pairs) ++ "\t") $ [2..7], newLineEnding, replicate 102 '*'] {-# INLINE generalInfo1 #-}

@@ -3,7 +3,7 @@ -- http://haskell.org/cabal/users-guide/  name:                phonetic-languages-plus-version:             0.1.1.0+version:             0.1.2.0 synopsis:            Some common shared between different packages functions. description:         Among them are the uniqueness-periods-vector series. homepage:            https://hackage.haskell.org/package/phonetic-languages-plus@@ -29,7 +29,7 @@   main-is:             Main.hs   other-modules:       Data.Statistics.RulesIntervals   other-extensions:    CPP, BangPatterns-  build-depends:       base >=4.7 && <4.15, bytestring >=0.10 && <0.13, lists-flines >=0.1.1 && <1, uniqueness-periods-vector-stats >=0.2 && <1, parallel >=3.2.0.6 && <4+  build-depends:       base >=4.7 && <4.15, bytestring >=0.10 && <0.13, lists-flines >=0.1.1 && <1, uniqueness-periods-vector-stats >=0.2.1 && <1, parallel >=3.2.0.6 && <4   ghc-options:         -threaded -rtsopts   hs-source-dirs:      ., Distribution   default-language:    Haskell2010