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)
 
del_num :: [[Int]]->[[Int]]
del_num x = set_matr set x
 
main = print $ del_num [[1,2,3,1,2,3],[4,5,6,4,4],[7,7,8,9]]

ZWxlbWVudCA6OiBJbnQgLT4gW0ludF0tPkJvb2wKZWxlbWVudCBfIFtdID0gRmFsc2UKZWxlbWVudCB4IChoOnQpID0gaWYgKHg9PWgpIHRoZW4gVHJ1ZQogICAgICAgICAgICAgICAgICBlbHNlIGVsZW1lbnQgeCB0CiAKaW5zZXJ0IDo6IFtJbnRdLT5JbnQtPltJbnRdCmluc2VydCBzIHggPSBpZiBlbGVtZW50IHggcyB0aGVuIHMKICAgICAgICAgICAgIGVsc2UgeDpzCiAKc2V0IDo6IFtJbnRdLT5bSW50XQpzZXQgW109W10Kc2V0ICh4OnhzKSA9IGluc2VydCAoc2V0IHhzKSB4CiAKc2V0X21hdHIgOjogKFtJbnRdLT5bSW50XSktPltbSW50XV0tPltbSW50XV0Kc2V0X21hdHIgZiBbXSA9IFtdCnNldF9tYXRyIGYgKHg6eHMpID0gZih4KSA6IHNldF9tYXRyIGYoeHMpCiAKZGVsX251bSA6OiBbW0ludF1dLT5bW0ludF1dCmRlbF9udW0geCA9IHNldF9tYXRyIHNldCB4CgptYWluID0gcHJpbnQgJCBkZWxfbnVtIFtbMSwyLDMsMSwyLDNdLFs0LDUsNiw0LDRdLFs3LDcsOCw5XV0=