| Original Message (ID '271497') By Bill Simpson: |
| Test this carefully before you depend on it.
In[1]:= numbers={1,2,5,9,4,2,1,10,12,1};
runs=1;
increasing=numbers[[1]]<=numbers[[2]];
For[i=1,inumbers[[i+1]], runs++;increasing=False,
Not[increasing]&&numbers[[i]] |
|
