アルゴリズム
はじめに 前回で終わるつもりでしたが、CPANに既に解法があれば楽だと思って調べてみました。 まとめ 「Traveling Salesman」で検索したところ Algorithm::TravelingSalesman::BitonicTour というモジュールを見つけたので試してみました。 結果だけ先にいう…
はじめに 前回に引き続き、巡回セールスマン問題の解法をPythonからPerlに移植します。 今回は、greed1関数内で既存ライブラリ(List::PriorityQueue, Graph::UnionFind)を使っていた部分を、元サイトのロジックどおりに実装し直して、draw_path関数の移植を…
はじめに 前回に引き続き、巡回セールスマン問題の解法をPythonからPerlに移植します。 今回は、2-opt法とor-opt法の対応です。 参考サイト http://www.geocities.jp/m_hiroi/light/pyalgo64.html 「2-opt 法のプログラム」と「or-opt 法のプログラム」をPer…
はじめに 前回の巡回セールスマン問題をPerlで - nirasan's tech blogで、巡回セールスマン問題の解法をPythonからPerlに移植しましたが、Tkまわりは省略しました。 今回はTkのインストールとTkまわりのコードを移植を行います。 参考サイト http://www.geoc…
はじめに 巡回セールスマン問題の解法をPythonで解説しているサイトがあったので、Perlに移植してみたメモ。 参考サイト http://www.geocities.jp/m_hiroi/light/pyalgo62.html 「TSP を「欲張り法」で解く」をPerlで Tkまわりは省略 割とそのまま移植できた…