source: project/release/4/sdl/trunk/test-heap.scm @ 16270

Last change on this file since 16270 was 16270, checked in by Christian Kellermann, 11 years ago

sdl port to chicken 4
File size: 307 bytes
Line 
1(use srfi-1)
2(use srfi-9)
3(use sdl)
4
5(define-values (s-heap-insert
6                s-heap-merge
7                s-heap-delete-minimum)
8  (heap-functor string<=?))
9
10(define h (fold s-heap-insert
11                (empty-heap)
12                '("m" "f" "z" "d" "e" "r" "a")))
13
14(define (pop/print h)
15  (write (heap-minimum h))
16  (newline)
17  (s-heap-delete-minimum h))
Note: See TracBrowser for help on using the repository browser.