findTriangle :: Int -> Int -> Int -> [[Int]] -> [Int]
findTriangle i j notK triangles = if result == [] then [] else head result
  where result = filter (notElem notK) $ filter (elem i) $ filter (elem j) triangles


-- icosahedron
findTriangle :: Int -> Int -> Int -> [[Int]] -> [Int]
findTriangle i j notK triangles = if result == [] then [] else head result
  where result = filter (notElem notK) $ filter (elem i) $ filter (elem j) triangles


-- icosahedron
findTriangle i j notK triangles = if result == [] then [] else head result
  where result = filter (notElem notK) $ filter (elem i) $ filter (elem j) triangles


-- icosahedron