リストpを降順ソートしたものをリストqに入れます。 ターボモードにすると一瞬で終わります。
以下の回答例です。 https://scratch.mit.edu/discuss/topic/133890/?page=39#post-3928152
