반복문자열/임인택

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.

---

반복문자열