Rosetta Code

Text between: Difference between revisions

Page Discussion

Text between (view source)

Revision as of 08:28, 26 March 2021

36 bytes removed ,  3 years ago
m
→‎{{header|Haskell}}
m (→‎{{header|Haskell}}: Tidied, preferred bimap to (***))
Line 1,076:
samples :: [Text]
samples =
packfmap
]pack▼
<$> [ "Hello Rosetta Code world",
"</div><div style=\"chinese\">你好吗</div>",
"<text/div>Hello<div <spanstyle=\"chinese\">Rosetta Code你好吗</spandiv> world",
"<text>Hello <span>Rosetta "Code</textspan><table style=\"myTable\">world",
<> "</text><table style=\"myTable\"><tr><td>",
"<>table style=\"myTable\"hello world</td></tr></tabletd>"
<> "hello world</td></tr></table>"
▲ ]
]
 
delims :: [(Either String Text, Either String Text)]
delims =
fmap
join bimap wrap
<$> [ ("Hello ",join "bimap world"wrap),
[ ("startHello ", " world"),
("Hellostart", "end world"),
("<div style=\"chinese\">Hello", "</div>end"),
("<textdiv style=\"chinese\">", "<table/div>"),
("<text>", "</table>"),
("<text>", ]"</table>")
]
 
wrap :: String -> Either String Text
Hout
9,655

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/279266"