RosettaCodeData/Task/Floyd-Warshall-algorithm/J/floyd-warshall-algorithm-1.j

floyd=: verb define
  for_j. i.#y do.
    y=. y <. j ({"1 +/ {) y
  end.
)