This came in via my forums today and I thought it was too interesting to not blog about. If you read his post, you can see he needs to support rotating data such that A B C changes to B A C. However, he also has groupings within his data. So imagine now you have ABC in the first group and DE in the second. Your rotation now needs to be "in" group, so on your first iteration you have: A B C D E. On your second you rotate each group to end with: B C A E D. I whipped up the following solution and I'd love to see alternatives.

I began by creating a data structure. SuperAlly mentioned a query but for now I assume the query data is converted into a 2D array.
   view plainprintabout
1  <cfset data = [
2      ["a", "b", "c"],
3      ["d", "e"]
4      ]>
Next I whipped up a quick UDF that would display this data. It assumes you pass in a 2D array and simply loops through each element:
   view plainprintabout
1  <cfscript>
2  function render(arr) {
3      for(var i=1; i<=arrayLen(arr); i++) {
4          for(var x=1; x<=arrayLen(arr[i]); x++) {
5              writeOutput(arr[i][x] & " ");
6          }
7      }
8  }
9  </cfscript>
I displayed this to ensure everything was kosher:
   view plainprintabout
1  <cfoutput>
2  #render(data)#
3  <p/>
4  </cfoutput>
This returned "a b c d e" as I expected. Ok, now for the fun part. In theory, all I have to do is remove the item from the beginning of each array and drop it on top.
   view plainprintabout
1  <cfloop index="i" from="1" to="#arrayLen(data)#">
2      <cfset movingItem = data[i][1]>
3      <cfset arrayDeleteAt(data[i],1)>
4      <cfset arrayAppend(data[i], movingItem)>
5  </cfloop>
As you can see, I loop over data, which is the core data holder. Each element of data is an array itself. I grab the first item, delete it, and then simply add it to the end of the array. Here is a complete script with a few sample runs:
   view plainprintabout
1  <cfset data = [
2      ["a", "b", "c"],
3      ["d", "e"]
4      ]>
5      
6  
7  <cfscript>
8  function render(arr) {
9      for(var i=1; i<=arrayLen(arr); i++) {
10          for(var x=1; x<=arrayLen(arr[i]); x++) {
11              writeOutput(arr[i][x] & " ");
12          }
13      }
14  }
15  </cfscript>
16  
17  <cfoutput>
18  #render(data)#
19  <p/>
20  </cfoutput>
21  
22  <cfloop index="i" from="1" to="#arrayLen(data)#">
23      <cfset movingItem = data[i][1]>
24      <cfset arrayDeleteAt(data[i],1)>
25      <cfset arrayAppend(data[i], movingItem)>
26  </cfloop>
27  
28  <cfoutput>
29  #render(data)#
30  <p/>
31  </cfoutput>
32  
33  <cfloop index="i" from="1" to="#arrayLen(data)#">
34      <cfset movingItem = data[i][1]>
35      <cfset arrayDeleteAt(data[i],1)>
36      <cfset arrayAppend(data[i], movingItem)>
37  </cfloop>
38  
39  <cfoutput>
40  #render(data)#
41  <p/>
42  </cfoutput>
And the output: a b c d e b c a e d c a b d e Notice how the second group, D E, correctly works even though it is smaller than the first group, A B C.