source: project/release/5/sdl-base/trunk/test-heap.scm @ 35609

Last change on this file since 35609 was 35609, checked in by megane, 6 months ago

sdl-base: Initial C5 port

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.