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 bArray to (theArray’s filteredArrayUsingPredicate:thePred) as list
–> {8, 7, 3, 9, 1, 6}

set theArray to current application’s NSArray’s arrayWithArray:{{8, 2}, {7, 3}, {9, 1}, {6, 4}, {10, 10}}
set thePred to current application’s NSPredicate’s predicateWithFormat:"(self[0] >5) AND (self[1] > 3)"
set bArray to (theArray’s filteredArrayUsingPredicate:thePred) as list
–> {8, 7, 3, 9, 1, 6}

set anArray to current application’s NSMutableArray’s arrayWithArray:aList
set aRes to (my filterRecListByLabel1(anArray, "allFeaturesArray contains[cd] ’固有名詞’"))’s baseForm

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel1(aRecList as list, aPredicate as string)
　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　return filteredArray
end filterRecListByLabel1

set aList to {"AAAAAAAAAAAAAAAAAAA", "BBBBBBBBBBBBBBBBBBBBB", "CCCCCCCCCCCCCCCCCCCCCCCC"}
set anArray to current application’s NSArray’s arrayWithArray:aList
–>　　(NSArray) {"AAAAAAAAAAAAAAAAAAA", "BBBBBBBBBBBBBBBBBBBBB", "CCCCCCCCCCCCCCCCCCCCCCCC"}

property |NSURL| : a reference to current application’s |NSURL|
property NSArray : a reference to current application’s NSArray
property NSPredicate : a reference to current application’s NSPredicate
property NSFileManager : a reference to current application’s NSFileManager
property NSMutableArray : a reference to current application’s NSMutableArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor
property NSURLIsDirectoryKey : a reference to current application’s NSURLIsDirectoryKey
property NSDirectoryEnumerationSkipsHiddenFiles : a reference to current application’s NSDirectoryEnumerationSkipsHiddenFiles
property NSDirectoryEnumerationSkipsPackageDescendants : a reference to current application’s NSDirectoryEnumerationSkipsPackageDescendants
property NSDirectoryEnumerationSkipsSubdirectoryDescendants : a reference to current application’s NSDirectoryEnumerationSkipsSubdirectoryDescendants

set aFol to choose folder
set aList to my getFilesByIncludedStringInName:("txt") fromDirectory:(POSIX path of aFol) exceptPackages:(true)
–return aList

–set aList to {"AAAAAAAAAAAAAAAAAAA", "BBBBBBBBBBBBBBBBBBBBB", "CCCCCCCCCCCCCCCCCCCCCCCC"}
set anArray to current application’s NSArray’s arrayWithArray:aList
–>　　(NSArray) {​​​​​1, ​​​​​2, ​​​​​3​​​}

–指定要素を検索する
set aInd to anArray’s indexOfObject:"N7663CT-673.txt"
if (aInd = current application’s NSNotFound) or (aInd > 9.999999999E+9) then
　　return false
else
　　return aInd
　　–>　　2
end if

set aList to {5, 2, 3, 4, 1}
set aRes to findItemNumFrom1DArray(aList, 5, false) of me
–> 1

set aRes to findItemNumFrom1DArray(aList, 5, true) of me
–> 5

set aList to {"1", "2", "3", "4", "5"}
set aRes to findItemNumFrom1DArray(aList, "3", false) of me
–> 3

set str1 to current application’s NSString’s stringWithString:"My cat sometimes likes to eat fish."
set str2 to current application’s NSString’s stringWithString:"My cat always likes to drink fresh water, and eat fish."

set set1 to current application’s NSMutableSet’s setWithArray:(str1’s componentsSeparatedByString:" ")
set set2 to current application’s NSMutableSet’s setWithArray:(str2’s componentsSeparatedByString:" ")
set2’s minusSet:set1
set anArray to (set2’s allObjects()) as list
–>　　{​​​​​"always", ​​​​​"water,", ​​​​​"and", ​​​​​"drink", ​​​​​"fresh"​​​}–str1になくてstr2にあるもの

set set3 to current application’s NSMutableSet’s setWithArray:(str1’s componentsSeparatedByString:" ")
set set4 to current application’s NSMutableSet’s setWithArray:(str2’s componentsSeparatedByString:" ")
set4’s unionSet:set3
set anArray to (set4’s allObjects()) as list
–>　　{​​​​​"to", ​​​​​"water,", ​​​​​"My", ​​​​​"cat", ​​​​​"likes", ​​​​​"fish.", ​​​​​"drink", ​​​​​"eat", ​​​​​"and", ​​​​​"fresh", ​​​​​"always", ​​​​​"sometimes"​​​}–合成してユニーク化

set set5 to current application’s NSMutableSet’s setWithArray:(str1’s componentsSeparatedByString:" ")
set set6 to current application’s NSMutableSet’s setWithArray:(str2’s componentsSeparatedByString:" ")
set6’s intersectSet:set5
set anArray to (set6’s allObjects()) as list
–>　　{​​​​​"eat", ​​​​​"My", ​​​​​"cat", ​​​​​"likes", ​​​​​"to", ​​​​​"fish."​​​}–共通項

set aList to {"positive", "negative", "positive", "positive", "positive"}

set bList to countItemsByItsAppearance(aList) of me
–>　　{​​​​​{​​​​​​​theName:"positive", ​​​​​​​numberOfTimes:4​​​​​}, ​​​​​{​​​​​​​theName:"negative", ​​​​​​​numberOfTimes:1​​​​​}​​​}

set aRes to theName of contents of first item of bList
–>　　"positive"

set kinsokuCharList to {"︒", "︑", "﹁", "﹂", "﹃", "﹄", "︻", "︼", "﹇", "﹈", "︷", "︸", "︵", "︶", "︱", "⌇", "ァ", "ィ", "ゥ", "ェ", "ォ", "ョ", "ぁ", "ぃ", "ぅ", "ぇ", "ぉ", "ょ"}
set aRes to offsetInList("ぁ", kinsokuCharList) of me
–> 22
set aRes to offsetInList("あ", kinsokuCharList) of me

–Objective-Cライクなパラメータ記述
on doesList:list1 containList:list2
　　set set1 to current application’s NSSet’s setWithArray:list1
　　set set2 to current application’s NSSet’s setWithArray:list2
　　return ((set2’s isSubsetOfSet:set1) as integer = 1)
end doesList:containList:

–無意味区による装飾
on doesListContain for list1 by list2
　　set result1 to my doesList:list1 containList:list2
　　return result1
end doesListContain

–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​​​}