最短経路探索プログラム Gauche 版 その2 : Serendip – Webデザイン・プログラミング

最短経路探索プログラム Gauche 版 を "「人材獲得作戦・４ 試験問題ほか」を解いてみた(2) | 山本隆の開発日誌" で紹介されていた "通った経路に文字を埋めてゆく方法" で書いてみた。 今回はマップのデータを文字のリストから成る行リストで作る。 隣接する座標に一歩づつ移動して経路を記録して文字を埋めてゆき、ゴールが見つかった時点で call/cc を使ってループを脱出する。 そして、結果の移動経路座標の文字を $ に書き換えていったマップデータを印字する。 (use file.util) ; file->string (use srfi-1) ; list-index (use gauche.sequence) ; fold-with-index ;;; マップ文字列からマップデータリストを作る ;;; マップデータリスト ;;; ((* * * * * * * * * * *