Functional coverage tree: Difference between revisions
m
→{{header|Haskell}}
m (→Python: Composition of pure functions: Tidying) |
|||
Line 377:
let delimiter = "|"
indentedLines = T.lines s
titles = init $
in T.unlines
[ titleLine (titles ++ ["SHARE OF RESIDUE"])
Line 384:
foldTree
weightedCoverage
((partialRecord .
head (outlineParse (tail indentedLines)))
]
Line 449:
, share = 0.0
}
columnNames :: T.Text -> T.Text -> [T.Text]▼
columnNames delimiter = fmap T.strip . T.splitOn delimiter▼
defaultOrRead :: Float -> T.Text -> Float
defaultOrRead n txt = either (const n) fst $ T.rational txt
-- SERIALISATION OF TREE TO TABULATED OUTLINE -------------
| |||