7 lines
169 B
Text
7 lines
169 B
Text
(define pq (priority-queue 'new 5))
|
|
|
|
(pq 'push "Clear drains" 3)
|
|
(pq 'push "Feed cat" 4)
|
|
(pq 'push "Make tea" 5)
|
|
(pq 'push "Solve RC tasks" 1)
|
|
(pq 'push "Tax return" 2)
|