(in Haskell please) Code this function first without recursion and then with recursion.

ncopies 3 5 gives [5,5,5] ncopies 0 True gives [] ncopies 2 False gives [False, False] ncopies 4 "a" gives ["a","a","a","a"]