Skip to content

Instantly share code, notes, and snippets.

/gist:886553

Created March 25, 2011 08:38
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save anonymous/886553 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save anonymous/886553 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(dotimes [i numbox]
(dotimes [j numbox]
(when-not (== i j)
(when (and (aget graph i j)
(< (inc (aget level i)) (aget level j)))
(aset level j (inc (aget level i)))
(aset prev j i))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment