Functional coverage tree: Difference between revisions
m
→{{header|Haskell}}: Used Data.Bifunctor in place of Control.Arrow
(Add Swift) |
m (→{{header|Haskell}}: Used Data.Bifunctor in place of Control.Arrow) |
||
Line 354:
import qualified Data.Text.IO as T
import qualified Data.Text as T
import Control.Arrow ((&&&), first)▼
import Numeric (showFFloat)
import Data.Char (isSpace)
import Data.Bool (bool)
Line 395:
weightedCoverage :: Coverage -> Forest Coverage -> Tree Coverage
weightedCoverage x xs =
let cws = ((,) . coverage
totalWeight = foldr ((+) . snd) 0 cws
in Node
Line 409:
let go fraction node =
let forest = subForest node
weights =
weightTotal = sum weights
nodeRoot = rootLabel node
Line 416:
{ share = fraction * (1 - coverage nodeRoot)
})
(zipWith go
in go shareOfTotal tree
Line 422:
parseTreeFromOutline :: T.Text -> [T.Text] -> Tree Coverage
parseTreeFromOutline delimiter indentedLines =
head (forestFromLineIndents $ indentLevelsFromLines $ tail indentedLines)
Line 474:
delimiter
([T.append indent (name x), T.pack (showN 0 (weight x))] ++
tabulation :: T.Text -> [T.Text] -> T.Text
Line 485:
showN :: Int -> Float -> String
showN p n = justifyRight 7 ' ' (showFFloat (Just p) n "")</lang>
{{Out}}
<pre>NAME_HIERARCHY | WEIGHT | COVERAGE | SHARE OF RESIDUE
| |||