element :: Int -> [Int]->Bool
element _ [] = False
element x (h:t) = if (x==h) then True
                  else element x t
 
insert :: [Int]->Int->[Int]
insert s x = if element x s then s
             else x:s
 
set :: [Int]->[Int]
set []=[]
set (x:xs) = insert (set xs) x
 
set_matr :: ([Int]->[Int])->[[Int]]->[[Int]]
-- set_matr f [] = []
set_matr f (x:xs) = f(x) : set_matr f(xs)
 
main = print $ set_matr set [[1,2,3,1,2,3],[4,5,6,4,4],[7,7,8,9]]
 

ZWxlbWVudCA6OiBJbnQgLT4gW0ludF0tPkJvb2wKZWxlbWVudCBfIFtdID0gRmFsc2UKZWxlbWVudCB4IChoOnQpID0gaWYgKHg9PWgpIHRoZW4gVHJ1ZQogICAgICAgICAgICAgICAgICBlbHNlIGVsZW1lbnQgeCB0CiAKaW5zZXJ0IDo6IFtJbnRdLT5JbnQtPltJbnRdCmluc2VydCBzIHggPSBpZiBlbGVtZW50IHggcyB0aGVuIHMKICAgICAgICAgICAgIGVsc2UgeDpzCiAKc2V0IDo6IFtJbnRdLT5bSW50XQpzZXQgW109W10Kc2V0ICh4OnhzKSA9IGluc2VydCAoc2V0IHhzKSB4CiAKc2V0X21hdHIgOjogKFtJbnRdLT5bSW50XSktPltbSW50XV0tPltbSW50XV0KLS0gc2V0X21hdHIgZiBbXSA9IFtdCnNldF9tYXRyIGYgKHg6eHMpID0gZih4KSA6IHNldF9tYXRyIGYoeHMpCgptYWluID0gcHJpbnQgJCBzZXRfbWF0ciBzZXQgW1sxLDIsMywxLDIsM10sWzQsNSw2LDQsNF0sWzcsNyw4LDldXQo=