Repeat a string: Difference between revisions
m
→{{header|Haskell}}
Line 820:
-- BY RHIND PAPYRUS 'EGYPTIAN' OR 'ETHIOPIAN' MULTIPLICATION ------------------
repString :: Int -> String -> String
repString n
foldr
(\(d, x) a ->
Line 834:
else Nothing)
n)
(iterate (join mappend)
-- TEST -----------------------------------------------------------------------
| |||