phladiprelio-general-simple 0.2.3.0 → 0.2.4.0

raw patch · 4 files changed

+17/−5 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +5/−0
• Phladiprelio/General/Simple.hs +7/−4
• README.md +4/−0
• phladiprelio-general-simple.cabal +1/−1

@@ -35,3 +35,8 @@ * Second version revised C. Added the possibility to see example lines for minimum and maximum values   for the properties in the test mode using the "-t <one of 4, 5, or 6>" command line arguments. +## 0.2.4.0 -- 2023-04-17++* Second version revised D. Added the possibility to see example lines for minimum and maximum values+for the properties in  the test mode using the "-t <one of 7, 8, or 9>" command line arguments.+

@@ -43,14 +43,17 @@    let syllN = sum . map (countSyll wrs arr us vs) $ rss        universalSet = map unwords . permutations $ rss        f grps mxms = sum . countHashes2G hashStep hc grps mxms . mconcat . h . createSyllablesPL wrs ks arr gs us vs-   if numTest `elem` 0:[2..6] then do+   if numTest `elem` 0:[2..9] then do       hSetNewlineMode stdout universalNewlineMode       putStrLn "Feet   Val  Stat   Proxim" -      mapM (\(q,qs) -> let m = stat1 syllN (q,qs) in let max1 = maximumBy (comparing (f q qs)) universalSet in let mx = f q qs max1 in putStrLn (show (fromEnum q) `mappend` "   |   " `mappend`  show mx `mappend` "     " `mappend` show m `mappend` "  -> " `mappend` show (100 * fromIntegral mx / fromIntegral m) `mappend` "%" `mappend` (if numTest >= 4 then let min1 = minimumBy (comparing (f q qs)) universalSet in ("\n" `mappend` min1 `mappend` "\n" `mappend` max1 `mappend` "\n")  else ""))) . zip [2..7] $ ([1]:sel numTest)+      mapM (\(q,qs) -> let m = stat1 syllN (q,qs) in let max1 = maximumBy (comparing (f q qs)) universalSet in let mx = f q qs max1 in putStrLn (show (fromEnum q) `mappend` "   |   " `mappend`  show mx `mappend` "     " `mappend` show m `mappend` "  -> " `mappend` show (100 * fromIntegral mx / fromIntegral m) `mappend` "%" `mappend` (if numTest >= 4 then let min1 = minimumBy (comparing (f q qs)) universalSet in ("\n" `mappend` min1 `mappend` "\n" `mappend` max1 `mappend` "\n")  else ""))) . zip [2..7] $ (sel numTest)    else mapM (\(x,y) -> putStrLn (show x `mappend` (' ':y)))  . (let h1 (u,w) = if descending then ((-1)*u,w) else (u,w) in sortOn h1) . map (\xss -> (f grps mxms xss, xss)) $ universalSet       where sel x -              | x == 0 || x == 4 = [[2,1],[3,2],[4,3,2],[5,4,3],[6,5,4,3,2]]-              | x == 2 || x == 5 = [[2],[3],[4,3],[5,4],[6,5,4]]+              | x == 0 || x == 4 = [[1],[2,1],[3,2],[4,3,2],[5,4,3],[6,5,4,3,2]]+              | x == 2 || x == 5 = [[1],[2],[3],[4,3],[5,4],[6,5,4]]+              | x == 7 = [[0],[1,0],[1,0],[1,0],[1,0],[1,0]]+              | x == 8 = [[0],[1,0],[1,0],[2,1,0],[2,1,0],[2,1,0]]+              | x == 9 = [[0],[1,0],[1,0],[2,1,0],[3,2,1,0],[3,2,1,0]]               | otherwise = [[1],[2,1],[3,2,1],[3,2],[4,3,2]]  countSyll 

@@ -39,6 +39,10 @@ the foundation founder's (this is [Emma Kok](https://www.emmakok.nl)) Birthday. And on the 17/03/2023 there is the author's Birthday. And at the 19/03/2023 is  St. Joseph the Betrothed Day.++On the 19/04/2023 there is Emma's namesday, the memory of St. Emma of Lesum or Emma of Stiepel +(also known as Hemma and Imma) Day.+ If you would like to share some financial support, please, contact the foundation using the URL: 

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               phladiprelio-general-simple-version:            0.2.3.0+version:            0.2.4.0  -- A short (one-line) description of the package. synopsis:           A generalized functionality of PhLADiPreLiO for different languages that uses hash algorithms.