Priority queue: Difference between revisions
Content deleted Content added
m →version 1: simplified some functions, used a template for the output. |
m →version 1: relaxed a comparison. |
||
Line 3,720:
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
.del: procedure expose @. #; arg p; if p
.ins: procedure expose @. #; #=#+1; @.#=arg(1); return # /*entry, P, task.*/
.show: procedure expose @. #; do j=1 for #; _=@.j; if _\=='' then say _; end; return
|