More actions
Source Code
module RepeatStr where message target msg 0 = target message target msg n = message (target++msg++"\n") (msg) (n-1) repeatMessage msg n = putStr (message "" msg n)
Usage
RepeatStr> repeatMessage "CAUCSE LOVE." 5
Result
CAUCSE LOVE. CAUCSE LOVE. CAUCSE LOVE. CAUCSE LOVE. CAUCSE LOVE.