@belisarius I'll tell Volta to GOTO Rojo

@Rojo I'm sure this klimate is some kind of punishment

@belisarius Just think about others who will have a harder time these days

like Santa in that suit

We shouldn't have thrown Cangallo from government

@Rojo Yeah. No News from JM for example. Damn.

@belisarius Don't make important decisions in this heat. Just in case

I never do

@Rojo well, I'm going to drink a birra at the bar de la esquina. It's unbearable here right now

@belisarius Enjoy

If you don't see me around any more, I died

@Rojo In that case Merry Xmas

Thanks :)

you're welcome

@jtbandes LinearSolve[{{1, 1}, {1, -1}}, {1, 0}] and LinearSolve[{{1, 1}, {1, -1}}, {1, 2}]

@Oleksandr R. & @Michael Hale, Thank you, I'm still new to Mathematica. I looked through the code of priority queue in the Mathematica journal page. It just satisfies my needs. But I came across a little problem when calling the package. First is the warning MakeQueue::shdw: "Symbol \!(\"MakeQueue\") appeared in multiple contexts" . When I called the package again, the warning disappeared, but the functions in the package didn't work.

I changed the predicate from Greater to (Min[#1[[2]]]<Min[#2[[2]]])& ,which may cause the problem. But when I replaced the predicate to less with less=(Min[#1[[2]]]<Min[#2[[2]]])&, the problem disappeared. And all works: That's weird!

Because I want the lower value to have higher priority.

All functions work well except "DeleteQueue"

And a bug for "DeQueue[q]"

@novice Did you try the update here? mathematica.stackexchange.com/a/31976/5568