uniqueness-periods-vector-examples 0.12.1.0 → 0.12.2.0

raw patch · 4 files changed

+14/−4 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +5/−1
• Languages/UniquenessPeriods/Vector/FuncRepRelated.hs +5/−0
• Proportion/Main.hs +3/−2
• uniqueness-periods-vector-examples.cabal +1/−1

@@ -127,4 +127,8 @@  ## 0.12.1.0 -- 2020-10-10 -* Twelfth version revised A. Fixed issue with wrongly defined control parameters in the lineVariants executable. +* Twelfth version revised A. Fixed issue with wrongly defined control parameters in the lineVariants executable.++## 0.12.2.0 -- 2020-10-12++* Twelfth version revised B. Improved printing of the output for the processText executable, used for this a new function precChoice.

@@ -29,3 +29,8 @@   | xs == "y" = procBothFneg   | otherwise = procBothInvFneg +-- | Allows to choose precision in the Numeric.showFFloat function being given a choice parameter.+precChoice :: String -> Maybe Int+precChoice choice+  | choice == "y0" = Just 0+  | otherwise = Just 4

@@ -120,8 +120,8 @@       (!wordsN,!intervalN)          | maxE == 1 = (0, 0)          | otherwise = runEval ((parTuple2 rpar rpar) (length . words $ ts, intervalNRealFrac minE maxE gz data2))-      (!ratio,!printedLine) = (if maxE == 1 then 0.0 else 2.0 * data2 / (minE + maxE), mconcat [showFFloat (Just 4) minE $ "\t",-        showFFloat (Just 4) data2 "\t", showFFloat (Just 4) maxE "\t", showFFloat (Just 4) (data2 / minE) "\t",+      (!ratio,!printedLine) = (if maxE == 1.0 then 0.0 else 2.0 * data2 / (minE + maxE), mconcat [showFFloat (precChoice choice) minE $ "\t",+        showFFloat (precChoice choice) data2 "\t", showFFloat (precChoice choice) maxE "\t", showFFloat (Just 4) (data2 / minE) "\t",            showFFloat (Just 4) (maxE / data2) "\t", showFFloat (Just 4) ratio "\t", '\t':show (wordsN::Int),              '\t':show (intervalN::Int), if printLine == 1 then '\t':ts else ""]) in ((ratio,printedLine),(wordsN,intervalN))) {-# INLINABLE getData3 #-}@@ -140,3 +140,4 @@            '\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:                uniqueness-periods-vector-examples-version:             0.12.1.0+version:             0.12.2.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