gistfile1.txt

The Python bit:

m = len(query)
for i in range(m-1):
	if (query[i]['quantity'] < query[i+1]['quantity']):
		quantity.append(int(query[i]['quantity']))
		date.append(time.mktime(query[i]['date'].timetuple()).as_integer_ratio()[0])
	else:
		break

Similar sort function in R:

for (i in 0:m) {
	j = (m - i)
	if (uy[(j)] > uy[(j-1)]) {
		oy=matrix(uy[j:m], ncol=1)
		ox=matrix(c(rep(1,(i+1)), ux[j:m,2]), ncol=2)
		break
	}
}