>>123
これでどうでしょう

(\y -> map (\x -> take x y ) [1..(length y)]) [0,1,2,3]