KYRIE`RUSSAL

2016年10月20日

摘要： procedure qs(l,r:integer);var i,j,x,t:integer;begin i:=l; j:=r; x:=a[l+random(r-l)+1]; repeat while (a[i]<x) do inc(i); while (a[j]>x) do dec(j); if i 阅读全文

posted @ 2016-10-20 13:10 KYRIE`RUSSAL 阅读(157) 评论(0) 推荐(0)

没有人会给你一切，你要到达目的，就得务必付出泪血汗这三样东西。—加内特

公告