findTriangleStrip :: [[Int]] -> Int -> (Int, Int) -> [[Int]]
findTriangleStrip triangles notK (i, j) =
  if triangle == []
    then []
    else triangle : findTriangleStrip triangles i (k, j)
  where triangle = findTriangle i j notK triangles
        k = head $ dropWhile (\e -> e == i) $ dropWhile (\e -> e == j) triangle
findTriangleStrip :: [[Int]] -> Int -> (Int, Int) -> [[Int]]
findTriangleStrip triangles notK (i, j) =
  if triangle == []
    then []
    else triangle : findTriangleStrip triangles i (k, j)
  where triangle = findTriangle i j notK triangles
        k = head $ dropWhile (\e -> e == i) $ dropWhile (\e -> e == j) triangle
findTriangleStrip triangles notK (i, j) =
  if triangle == []
    then []
    else triangle : findTriangleStrip triangles i (k, j)
  where triangle = findTriangle i j notK triangles
        k = head $ dropWhile (\e -> e == i) $ dropWhile (\e -> e == j) triangle