Rosetta Code

A* search algorithm: Difference between revisions

Page Discussion

A* search algorithm (view source)

Revision as of 17:26, 19 February 2020

21 bytes removed ,  4 years ago
m
Ol: small simplification
m (→‎{{header|OCaml}}: just a typo)
m (Ol: small simplification)
Line 1,711:
(+ (<< (car xy) 16) (cdr xy)))
 
; naive test for "is the cell is empty?"
(define (floor? x y)
(let ((line (lreflist-ref level y)))
(if line (pairnot (eq? (list-ref line x) 1)))))
(eq? (lref line x) 0))))
 
(unless (equal? from to) ; search not finished yet
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/273004"