なんとなくダイクストラ法を使う機会がありそうなので、勉強がてらに。 ダイクストラ法は、2点間の最短距離を求めるアルゴリズムです。 カーナビとかにも使われているらしいです。 以下、さんぷるこーど。 #!/usr/bin/perl use strict; use Dumpvalue; my @nodes = ( { id => 0, point => [0,0], edges => {1=>5,3=>6,4=>9}, distance => 0, done => 1, from => undef, }, { id => 1, point => [2,0], edges => {0=>5,2=>5,3=>2,4=>2,5=>6}, distance => 0, done => undef, from => undef, }, { id => 2, point => [4,0], edges =>
