読者です 読者をやめる 読者になる 読者になる

迷路189B

http://shinh.skr.jp/m/?date=20100113#p06
http://route477.net/d/?date=20100117#p01を参考にしつつ

(map writeb(ccc[loop(= m(drain:readb)w(+(pos 10 m)1)v(+ m)q
`((,(pos 83 m),m)))(= p pop.q)(on n `(1 -1,w,-.w)(case(min(v:++ n p.0)m.n)71(_:p
1)32(=(v n)0 r(+ p.1)r.n 36 q `(,@q(,n,r)))))]))