Gauche で経路探索A*(エースター) - sirocco の書いてもすぐに忘れるメモ

経路探索アルゴリズムA*(エースター)を参考にGauche で書いてみました。 (use srfi-1) ;; List library (use srfi-43) ;; ベクタライブラリ (use gauche.interactive) (use slib) (require 'trace) (define maze-string (string-append "**************************\n" "*S* * *\n" "* * * * ************* *\n" "* * * ************ *\n" "* * *\n" "************** ***********\n" "* *\n" "** ***********************\n" "* * G *\n" "* * *********** * *\n" "* *