set theArray to current application’s NSArray’s arrayWithArray:{8, 2, 7, 3, 9, 1, 6, 4}

set thePred to current application’s NSPredicate’s predicateWithFormat:"(self != 2) AND (self != 4)"
set bList to (theArray’s filteredArrayUsingPredicate:thePred) as list
–>　　{​​​​​8, ​​​​​7, ​​​​​3, ​​​​​9, ​​​​​1, ​​​​​6​​​}

set stringArray to current application’s NSArray’s arrayWithArray:{"adobe", "22", "microsoft", "99"}
set thePred to current application’s NSPredicate’s predicateWithFormat:"self MATCHES ’＼＼＼＼d＼＼＼＼d’"
set bList to (stringArray’s filteredArrayUsingPredicate:thePred) as list
–>　　{​​​​​"22", ​​​​​"99"​​​}

–Objective-Cライクなパラメータ記述
on insertItem:anItem atIndex:(theIndex as integer) inList:(theList as list)
　　set theArray to current application’s NSMutableArray’s arrayWithArray:theList
　　theArray’s insertObject:anItem atIndex:(theIndex – 1)
　　return theArray as list
end insertItem:atIndex:inList:

–無意味区による装飾
on insertItem at anItem for theIndex as integer from theList as list
　　set aRes to my insertItem:anItem atIndex:theIndex inList:theList
　　return aRes
end insertItem

set anArray to current application’s NSMutableArray’s arrayWithArray:{1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3}
set histObj to current application’s JTHistogram’s alloc()’s initWithArray:anArray

set histDict to histObj’s |histogram|()
–>　　(NSDictionary) {​​​​​0:0, ​​​​​3:4, ​​​​​2:2, ​​​​​1:6​​​}

set theList to (current application’s DCRandomize’s shuffle:1 max:9999)

set theTime to current application’s NSDate’s |date|()

set theCountedSet to current application’s NSCountedSet’s alloc()’s initWithArray:theList
set newArray to current application’s NSMutableArray’s new()

repeat with i from 1 to 10000
　　(newArray’s addObject:{theKey:i, theCount:(theCountedSet’s countForObject:i)})
end repeat

property NSMutableArray : a reference to current application’s NSMutableArray

set anArray to NSMutableArray’s new()

repeat 10000 times
　　set anArray to anArray’s arrayByAddingObjectsFromArray:{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
end repeat

property NSMutableArray : a reference to current application’s NSMutableArray

set anArray to NSMutableArray’s new()

repeat 10000 times
　　anArray’s addObjectsFromArray:{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
end repeat

set aList to {{1, 2, 3, 4, 5, 6, 4}, {1, 2, 3, 4, 5, 6}, {1, 2, 3, 4, 5, 6, 0, 0}} –7,6, 8 items
set aRes to getMaxItemCountFrom2DArray(aList) of me
–>　　8 –max items is 8

property NSArray : a reference to current application’s NSArray

set origList to {{1, 2, 3, 4, 5, 6, 7}, {11, 12, 13, 14, 15, 16}, {21, 22, 23, 24, 25, 26, 27, 28}}

set wList to rotateListCounterClockwise90(origList, 0) of me

–>　　{{0, 0, 28}, {7, 0, 27}, {6, 16, 26}, {5, 15, 25}, {4, 14, 24}, {3, 13, 23}, {2, 12, 22}, {1, 11, 21}}

set sList to rotateListCounterClockwise90(wList, 0) of me
–>　　{​​​​​{​​​​​​​28, ​​​​​​​27, ​​​​​​​26, ​​​​​​​25, ​​​​​​​24, ​​​​​​​23, ​​​​​​​22, ​​​​​​​21​​​​​}, ​​​​​{​​​​​​​0, ​​​​​​​0, ​​​​​​​16, ​​​​​​​15, ​​​​​​​14, ​​​​​​​13, ​​​​​​​12, ​​​​​​​11​​​​​}, ​​​​​{​​​​​​​0, ​​​​​​​7, ​​​​​​​6, ​​​​​​​5, ​​​​​​​4, ​​​​​​​3, ​​​​​​​2, ​​​​​​​1​​​​​}​​​}

set eList to rotateListCounterClockwise90(sList, 0) of me
–>　　{​​​​​{​​​​​​​21, ​​​​​​​11, ​​​​​​​1​​​​​}, ​​​​​{​​​​​​​22, ​​​​​​​12, ​​​​​​​2​​​​​}, ​​​​​{​​​​​​​23, ​​​​​​​13, ​​​​​​​3​​​​​}, ​​​​​{​​​​​​​24, ​​​​​​​14, ​​​​​​​4​​​​​}, ​​​​​{​​​​​​​25, ​​​​​​​15, ​​​​​​​5​​​​​}, ​​​​​{​​​​​​​26, ​​​​​​​16, ​​​​​​​6​​​​​}, ​​​​​{​​​​​​​27, ​​​​​​​0, ​​​​​​​7​​​​​}, ​​​​​{​​​​​​​28, ​​​​​​​0, ​​​​​​​0​​​​​}​​​}

set nList to rotateListCounterClockwise90(eList, 0) of me
–>　　{​​​​​{​​​​​​​1, ​​​​​​​2, ​​​​​​​3, ​​​​​​​4, ​​​​​​​5, ​​​​​​​6, ​​​​​​​7, ​​​​​​​0​​​​​}, ​​​​​{​​​​​​​11, ​​​​​​​12, ​​​​​​​13, ​​​​​​​14, ​​​​​​​15, ​​​​​​​16, ​​​​​​​0, ​​​​​​​0​​​​​}, ​​​​​{​​​​​​​21, ​​​​​​​22, ​​​​​​​23, ​​​​​​​24, ​​​​​​​25, ​​​​​​​26, ​​​​​​​27, ​​​​​​​28​​​​​}​​​}

on rotateListCounterClockwise90(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 curMax to 1 by -1
　　　　
　　　　set curX to 1
　　　　repeat with y from 1 to curLen 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 rotateListCounterClockwise90

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

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