Scheme気が向いたので、例の迷路を最短経路で解く問題を Gauche で書いてみた。 (use srfi-1) (define *maze* '( "**************************" "*S* * *" "* * * * ************* *" "* * * ************ *" "* * *" "************** ***********" "* *" "** ***********************" "* * G *" "* * *********** * *" "* * ******* * *" "* * *" "**************************" )) (define (maze-at pos) (string-ref (list-ref *maze* (inexact->exact (real-p