Rosetta Code

Selectively replace multiple instances of a character within a string: Difference between revisions

Page Discussion

Selectively replace multiple instances of a character within a string (view source)

Revision as of 18:04, 28 July 2022

78 bytes removed ,  1 year ago
m
→‎{{header|Haskell}}
Line 158:
nthCharsReplaced ruleMap = snd . mapAccumL go M.empty
where
go a c =
|case M.memberlookup c ruleMap =of
| otherwise =Nothing -> (a, c)▼
Just ds ->
let i = fromMaybe 0 (M.lookup c a)
in ( M.insert c (succ i) a,
otherCharif i c< (fromMaybelength [] (M.lookup c ruleMap))ds
| i < length deltas = then fromMaybe c (deltasds !! i)▼
else c
)
▲ | otherwise = (a, c)
 
otherChar :: Int -> Char -> [Maybe Char] -> Char
otherChar i c deltas
▲ | i < length deltas = fromMaybe c (deltas !! i)
| otherwise = c
 
--------------------------- TEST -------------------------
Hout
9,655

edits

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