–aList内に重複項目、bList内に重複項目が存在していた場合に、それが検出される可能性もある
set aList to {1, 2, 3, 4, 5}
set bList to {0, 1, 2, 4, 5, 6}

set aRes to getSameItemsInLists(aList, bList) of me
–> {2, 5, 1, 4}

property NSCountedSet : a reference to current application’s NSCountedSet

set aList to {1, 2, 3, 4, 1, 2, 3, 4, 5, 1, 2, 3, 1, 2, 3, 8, 10, -2}
set aRes to returnDuplicatesOnly(aList) of me
–>　　{​​​​​1, ​​​​​2, ​​​​​3, ​​​​​4​​​}

property NSCountedSet : a reference to current application’s NSCountedSet

set aList to {1, 2, 3, 4, 5}
set bList to {0, 1, 2, 4, 5, 6}

–それぞれのListに重複項目が存在するかをチェック
set aRes1 to returnDuplicatesOnly(aList) of me
set bRes1 to returnDuplicatesOnly(bList) of me
if {aRes1, bRes1} is not equal to {{}, {}} then return false

–aListとbListを連結したListで重複が存在するかをチェック
set aArray to current application’s NSArray’s arrayWithArray:aList
set bArray to current application’s NSArray’s arrayWithArray:bList
set cArray to aArray’s arrayByAddingObjectsFromArray:bArray

set cRes to returnDuplicatesOnly(cArray) of me
–>　　{​​​​​5, ​​​​​1, ​​​​​2, ​​​​​4​​​}

set aList to {{1, 2, 3, 4, 5, 6, 4}, {1, 2, 3, 4, 5, 6}, {1, 2, 3, 4, 5, 16, 0, 0}}
set aRes to getTotalValueFrom2DArray(aList) of me
–>　　77 –total value is 0

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

–set aList to {{1, 2, 3, 4, 5, 6, 4}, {1, 2, 3, 4, 5, 6}, {1, 2, 3, 4, 5, 16, 0, 0}}
set aList to {{{1, 2}, {3, 4}, {5, 6, 4}}, {{1, 2}, {3, 4, 5, 6}, {{1, 2}, {3, 4, 5}, {16, 0, 0}}}}
set aRes to countEveryItemOf2DArray(aList) of me
–>　　21

on countEveryItemOf2DArray(aList)
　　set bList to FlattenList(aList) of me
　　return (length of bList)
end countEveryItemOf2DArray

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

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

set aList to {"あああああ", "いいいいいいいい", "ううううううううううう", "えええええええええええ", "おおおおおおおおおお"}
set aRes to my retStrFromArrayWithDelimiter(aList, return)
(*
"あああああ
いいいいいいいい
ううううううううううう
えええええええええええ
おおおおおおおおおお"
*)

set bList to my parseByDelim(aRes, return)
–>　　{​​​​​"あああああ", ​​​​​"いいいいいいいい", ​​​​​"ううううううううううう", ​​​​​"えええええええええええ", ​​​​​"おおおおおおおおおお"​​​}

–リストを指定デリミタをはさんでテキスト化
on retStrFromArrayWithDelimiter(aList, aDelim)
　　set anArray to current application’s NSArray’s arrayWithArray:aList
　　set aRes to anArray’s componentsJoinedByString:aDelim
　　return aRes as text
end retStrFromArrayWithDelimiter

on retArrowText(aList, aDelim) –自分のASでよく使うハンドラ名称なので、同じものを用意
　　return my retStrFromArrayWithDelimiter(aList, aDelim)
end retArrowText

script spd
　　property aList : {}
end script

–テストデータ作成
set aList of spd to {}
repeat 100000 times
　　set the end of aList of spd to (random number from 10000 to 9999)
end repeat

set a1Dat to current application’s NSDate’s timeIntervalSinceReferenceDate() –時間計測

set aGroupNum to 100000
set b to (current application’s SMSForder’s subarraysFrom:(aList of spd) groupedBy:aGroupNum |error|:(missing value)) as list

set aList to {{1, 2, 3}, {2, 3, 4}, {3, 4, 5}}
set removeIndex to 3 –1 based index
set bList to removeColumnFrom2DArray(aList, removeIndex) of me
–>　　{​​​​​{​​​​​​​1, ​​​​​​​2​​​​​}, ​​​​​{​​​​​​​2, ​​​​​​​3​​​​​}, ​​​​​{​​​​​​​3, ​​​​​​​4​​​​​}​​​}

set aTargValue to 2

set anArray to current application’s NSMutableArray’s arrayWithArray:{5, 2, 1, 3, 4}
set aInd to anArray’s indexOfObject:aTargValue

if aInd = current application’s NSNotFound or (aInd as real > 9.99999999E+8) then return {}
anArray’s removeObjectAtIndex:aInd
return anArray as list
–> {​​​​​5, ​​​​​1, ​​​​​3, ​​​​​4​​​}

set list1 to {5, 1, 2, 3, 1, 6, 2, 7, 8, 2, 6, 5, 4}
set list2 to {6, 7, 8}
set result1 to my removeItemsInList:list2 fromList:list1
–>　　{​​​​​5, ​​​​​3, ​​​​​1, ​​​​​4, ​​​​​2​​​}

set result2 to removeItems for list2 from list1
–>　　{5, 3, 1, 4, 2}

set result3 to removeItemsFrom(list1, list2) of me
–>　　{5, 3, 1, 4, 2}

–Objective-Cライクなパラメータ記述
on removeItemsInList:list2 fromList:list1
　　set set2 to current application’s NSSet’s setWithArray:list2
　　set set1 to current application’s NSMutableSet’s setWithArray:list1
　　set1’s minusSet:set2
　　return (set1’s allObjects()) as list
end removeItemsInList:fromList:

–無意味区による装飾
on removeItems for list2 from list1
　　return my removeItemsInList:list2 fromList:list1
end removeItems

property NSPredicate : a reference to current application’s NSPredicate
property NSArray : a reference to current application’s NSArray

set aList to {"Apple", "Lemon", "Aple", "Lum", "Apple"}
set aTarg to "Apple" –string
set rList to removeElementsFrom1DArray(aList, aTarg) of me
–>　　{"Lemon", "Aple", "Lum"}

set bList to {1, 2, 3, 1, 5}
set bTarg to 1 –number
set rList to removeElementsFrom1DArray(bList, bTarg) of me
–>　　{​​​​​2, ​​​​​3, ​​​​​5​​​}

set cList to {1, 2, 3, 1, 5}
set cTarg to {1, 2, 3} –list of number
set rList to removeElementsFrom1DArray(cList, cTarg) of me
–>　　{​​​​​5​​​}

set dList to {"Apple", "Lemon", "Aple", "Lum", "Apple"}
set dTarg to {"Apple", "Lemon"} –list of string
set rList to removeElementsFrom1DArray(dList, dTarg) of me
–>　　{​​​​​"Aple", ​​​​​"Lum"​​​}

property NSPredicate : a reference to current application’s NSPredicate
property NSArray : a reference to current application’s NSArray

set aList to {"Apple", "Lemon", "Apple", "Water Melon"}
set aTarg to {"Apple", "Lemon"} –データの表記ゆらぎ対策に使える？

set anArray to NSArray’s arrayWithArray:aList
set aPred to NSPredicate’s predicateWithFormat_("SELF IN %@", aTarg)
set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
–>　　{​​​​​"Apple", ​​​​​"Lemon", ​​​​​"Apple"​​​}