property NSArray : a reference to current application’s NSArray

set origList to {{1, 2, 3, 4, 5, 6, 7}, {1, 2, 3, 4, 5, 6}, {1, 2, 3, 4, 5, 6, 7, 8}}

set eList to rotateListClockwise90(origList, 0) of me

–>　　{{1, 1, 1}, {2, 2, 2}, {3, 3, 3}, {4, 4, 4}, {5, 5, 5}, {6, 6, 6}, {7, 0, 7}, {8, 0, 0}}

(*)
set sList to rotateListClockwise90(eList, 0) of me
–>　　 {{8, 7, 6, 5, 4, 3, 2, 1}, {0, 0, 6, 5, 4, 3, 2, 1}, {0, 7, 6, 5, 4, 3, 2, 1}}

set nList to rotateListClockwise90(wList, 0) of me
–>　　{{1, 2, 3, 4, 5, 6, 7, 0}, {1, 2, 3, 4, 5, 6, 0, 0}, {1, 2, 3, 4, 5, 6, 7, 8}}
*)

on rotateListClockwise90(aList, blankItem)
　　set curMax to 0
　　
　　set curLen to length of aList
　　set curMax to getMaxItemCountFrom2DArray(aList) of me
　　
　　set tmpList to {}
　　
　　set twoDList to make2DBlankArray(curLen, curMax) of me
　　
　　set curY to 1
　　repeat with x from 1 to curMax
　　　　
　　　　set curX to 1
　　　　repeat with y from curLen to 1 by -1
　　　　　　set aCon to getItemByXY(x, y, aList, blankItem) of me
　　　　　　set twoDList to setItemByXY(curX, curY, twoDList, aCon) of me
　　　　　　set curX to curX + 1
　　　　end repeat
　　　　
　　　　set curY to curY + 1
　　end repeat
　　
　　return twoDList
end rotateListClockwise90

on getMaxItemCountFrom2DArray(curList)
　　set anArray to NSArray’s arrayWithArray:curList
　　set eRes to (anArray’s valueForKeyPath:"@unionOfObjects.@count")’s valueForKeyPath:"@max.self"
　　return eRes as integer
end getMaxItemCountFrom2DArray

–2D Listに配列の添字的なアクセスを行なってデータを取得
on getItemByXY(aX, aY, aList, aBlankItem) –1 based index
　　try
　　　　set aContents to contents of (item aX of item aY of aList)
　　on error
　　　　set aContents to aBlankItem
　　end try
　　return aContents
end getItemByXY

–2D Listに配列の添字的なアクセスを行なってデータを設定
on setItemByXY(aX, aY, tmpList, aContents) –1 based index
　　set (item aX of item aY of tmpList) to aContents
　　return tmpList
end setItemByXY

–空白の2D Array を出力する
on make2DBlankArray(curLen, curMax)
　　set outArray to {}
　　repeat curMax times
　　　　set tmpList to {}
　　　　repeat curLen times
　　　　　　set the end of tmpList to ""
　　　　end repeat
　　　　set the end of outArray to tmpList
　　end repeat
　　return outArray
end make2DBlankArray