Готовые лабораторные работы / 2 / 21

--Описать функцию concat :: [a]->[a]->[a] такую, что concat [x1..xn] [y1..ym] = [x1..xn y1..ym].
--Пока первый список не пуст "копируем" его поэлементно.
--Иначе "копируем" второй в конец
f21 [] [] = []
f21 [] ys = ys
f21 (x:xs) ys= x:(f21 xs ys)