(#%if (#%not (#%string=? (#%version) "103")) (#%error (#%quote a3code-drs.scm) "compiled for MzScheme version 103, not ~a" (#%version))) #`$~ç2&displayA* for AI: Version 1.1 #` ~æ2&newline #`/~è2#%require-library/procinit.ssslibinit #`~ç2&require&wt-tree #`~5 dL2*astar-debug #`ý†~5 dL2$astar9‚$astarÍ;:ç2.make-astar-list:ç2.make-astar-list:5M b:5M b7N5€ !2,heuristic-cntè±"addë2-8puzzle-recordº½»ç;string³ç2-symbol->string²ç2"car²ç2"car³ #`ýü~5 dL2.make-astar-list9‚.make-astar-listÍ;:æ2.make-hash-table:5 b:´:ç2+make-wt-treeç20make-wt-tree-type2%wtcomp:5M b9‚ Ò8è2#eqv?¶"add:ç2$cadar¶7N8é2-hash-table-get²Å9‚Í7Nç2&displayDUPLICATE ADD ç2&displayÃæ2&newline5L vé2.hash-table-put!²Åç2"car¹:è2 +Á8±è2+astar-pq-add´è2#consç2#caarºÆ5L v8è2#eqv?¶%lookupé2-hash-table-get²ç2"car¹9‚Í8è2#eqv?¶&getnext8±=~ç2/astar-pq-getnext´7Mè2.astar-pq-removeµ±:é2-hash-table-get³ç2"cdr³9‚Í7Mè21hash-table-remove!²ç2"cdr²:è2 -ÂÃè2$errorINVALID OPERATION - NO PQ#yuck8è2#eqv?¶%remove:é2-hash-table-get²ç2"car¹9‚Í7Mè21hash-table-remove!±ç2"car¸:è2 -Á8±è2.astar-pq-remove´è2#consç2"carÇç2#cadrÇ5L v8è2#eqv?¶$print8±;:5 bè2/wt-tree/for-each9‚Ï7Rç2&display¿ç2&display: ç2&display²ç2&display | ç2&displayé2-hash-table-get´ç2"cdr¶9‚Íæ2&newline:è2 +À5L vµè2$errorINVALID OPERATION - NO PQ$yucko8è2#eqv?¶%length¿7Nç2&display ASTAR-LIST ç2&displayµæ2&newline #`ý~5 dL2(drawboard9‚(drawboardÍ=~è2(deep-map19‚Í8ç2&number?°ç2-number->string°8è2%equal?±$space 8ç2&symbol?°ç2-symbol->string°¯²=~è2$apply2"maxè2"map2,string-lengthè2$apply2%append¶ç;