Repeat a string: Difference between revisions
Content deleted Content added
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 -----------------------------------------------------------------------
|