http://practical-scheme.net/wiliki/wiliki.cgi?cut-seaで見かけたもの。 (define (analysis quest hint) (define (analy p0 q seq) (let1 cs (search p0 q) (cond ((<= 0 (length q) 1) (sequence-write (reverse seq))) ((or (null? cs) (>= (length seq)…