dane/graphgif
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use new generator syntax

Browse Source
This commit is contained in:
Dane Johnson 2024-11-11 22:15:04 -06:00
parent cd2a616ccb
commit e38cda0261
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
demo.scm
View File

@ -20,17 +20,16 @@
graph)) graph))
(define djikstra-generator (define djikstra-generator
(make-generator (generator
(lambda (yield) (djikstra graph 90 9 (lambda (visited heap)
(djikstra graph 90 9 (lambda (visited heap) (yield (color-graph graph visited heap))))
(yield (color-graph graph visited heap)))) #f))
#f)))
(define a*-generator (define a*-generator
(make-generator (generator
(lambda (yield) (a* graph 90 9 (lambda (visited heap)
(a* graph 90 9 (lambda (visited heap) (yield (color-graph graph visited heap))))
(yield (color-graph graph visited heap)))) #f))
#f)))
(write-graphs-to-file "djikstra.webp" djikstra-generator) (write-graphs-to-file "djikstra.webp" djikstra-generator)
(write-graphs-to-file "astar.webp" a*-generator) (write-graphs-to-file "astar.webp" a*-generator)