Jump to content

Functional coverage tree: Difference between revisions

Functional coverage tree (view source)

Revision as of 12:12, 14 October 2019

100 bytes added ,  4 years ago
m
→‎{{header|Haskell}}
m (→‎Python: Composition of pure functions: Reversed accidental edit)
Line 377:
let delimiter = "|"
indentedLines = T.lines s
titlescolumnNames = init $ tokenizetokenizeWith delimiter (head indentedLines)
in T.unlines
[ tabulation (titlescolumnNames ++ ["SHARE OF RESIDUE"])
, indentedLinesFromTree " " showCoverage $
withResidueShares 1.0 $
foldTree
weightedCoverage
((partialRecordparseTreeFromOutline .delimiter tokenize delimiterindentedLines) <$>
head (outlineParse (tail indentedLines)))
]
 
Line 417 ⟶ 416:
 
-- OUTLINE PARSE ------------------------------------------
outlineParseparseTreeFromOutline :: [T.Text] -> [Tree T.Text] -> Tree Coverage
parseTreeFromOutline delimiter indentedLines =
outlineParse = forestFromLineIndents . indentLevelsFromLines▼
(partialRecord . tokenizeWith delimiter) <$>
▲outlineParse = head (forestFromLineIndents .$ indentLevelsFromLines $ tail indentedLines)
 
forestFromLineIndents :: [(Int, T.Text)] -> [Tree T.Text]
Line 453 ⟶ 454:
defaultOrRead n txt = either (const n) fst $ T.rational txt
 
tokenizetokenizeWith :: T.Text -> T.Text -> [T.Text]
tokenizetokenizeWith delimiter = fmap T.strip . T.splitOn delimiter
 
-- SERIALISATION OF TREE TO TABULATED OUTLINE -------------
Hout
9,655

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/260150"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information