set aSet to current application’s NSMutableSet’s setWithArray:{1, 2, 3, 4}
set bSet to current application’s NSMutableSet’s setWithArray:{3, 5, 6, 7}

set aStr to "This is a pinnapple."
set bStr to "This is an apple."
set cStr to "Piyomaru San Dayo."

set aRes to stringDifferenceWithAppearance(aStr, bStr, "A & B") of me
–>　　{​​​​​intersect:2, ​​​​​minus:2, ​​​​​dataLabel:"A & B"​​​}

set bRes to stringDifferenceWithAppearance(bStr, cStr, "B & C") of me
–>　　{​​​​​intersect:0, ​​​​​minus:4, ​​​​​dataLabel:"B & C"​​​}

set cRes to stringDifferenceWithAppearance(cStr, aStr, "C & A") of me
–>　　{​​​​​intersect:0, ​​​​​minus:3, ​​​​​dataLabel:"C & A"​​​}

–結果をソートする
set allRes to current application’s NSArray’s arrayWithArray:{aRes, bRes, cRes}
set aSortDesc to current application’s NSSortDescriptor’s alloc()’s initWithKey:"intersect" ascending:false
set bSortDesc to current application’s NSSortDescriptor’s alloc()’s initWithKey:"minus" ascending:true
set aSortedArray to allRes’s sortedArrayUsingDescriptors:{aSortDesc, bSortDesc}

–もっとも似ている傾向を持つデータの組み合わせ
set aMostApproximative to aSortedArray’s firstObject() as record
–>　　{​​​​​minus:2, ​​​​​dataLabel:"A & B", ​​​​​intersect:2​​​}

–文字列同士の近似傾向を、相違点と重複箇所の２つの方向から計算する
on stringDifferenceWithAppearance(aStr, bStr, aLabel)
　　set aMinus to getApproximationBetweenStrings(aStr, bStr) of me
　　set aIntersect to getApproximationBetweenStringsIntersect(aStr, bStr) of me
　　return {intersect:aIntersect, minus:aMinus, dataLabel:aLabel}
end stringDifferenceWithAppearance

–与えられた文字列同士の相違点を計算する（結果がより小さい値のデータ同士が似ている）
on getApproximationBetweenStrings(aStr, bStr)
　　set aList to current application’s NSMutableArray’s arrayWithArray:(words of aStr)
　　set bList to current application’s NSMutableArray’s arrayWithArray:(words of bStr)
　　
　　set aIndex to current application’s NSCountedSet’s alloc()’s initWithArray:aList
　　set bIndex to current application’s NSCountedSet’s alloc()’s initWithArray:bList
　　
　　aIndex’s minusSet:bIndex
　　set aRes to aIndex’s allObjects()’s |count|()
　　
　　bIndex’s minusSet:aIndex
　　set bRes to bIndex’s allObjects()’s |count|()
　　
　　if aRes ≥ bRes then
　　　　return bRes
　　else
　　　　return aRes
　　end if
end getApproximationBetweenStrings

set aStr to "This is a pinnapple."
set bStr to "This is an apple."
set cStr to "Piyomaru San Dayo."

set aRes to stringDifferenceWithAppearance(aStr, bStr, "A & B") of me
–>　　{​​​​​intersect:11, ​​​​​minus:3​​​}

set bRes to stringDifferenceWithAppearance(bStr, cStr, "B & C") of me
–>　　{​​​​​intersect:5, ​​​​​minus:8​​​}

set cRes to stringDifferenceWithAppearance(cStr, aStr, "C & A") of me
–>　　{​​​​​intersect:5, ​​​​​minus:9​​​}

–結果をソートする
set allRes to current application’s NSArray’s arrayWithArray:{aRes, bRes, cRes}
set aSortDesc to current application’s NSSortDescriptor’s alloc()’s initWithKey:"intersect" ascending:false
set bSortDesc to current application’s NSSortDescriptor’s alloc()’s initWithKey:"minus" ascending:true
set aSortedArray to allRes’s sortedArrayUsingDescriptors:{aSortDesc, bSortDesc}

–もっとも似ている傾向を持つデータの組み合わせ
set aMostApproximative to aSortedArray’s firstObject() as record
–>　　{​​​​​minus:3, ​​​​​dataLabel:"A & B", ​​​​​intersect:11​​​}

–文字列同士の近似傾向を、相違点と重複箇所の２つの方向から計算する
on stringDifferenceWithAppearance(aStr, bStr, aLabel)
　　set aMinus to getApproximationBetweenStrings(aStr, bStr) of me
　　set aIntersect to getApproximationBetweenStringsIntersect(aStr, bStr) of me
　　return {intersect:aIntersect, minus:aMinus, dataLabel:aLabel}
end stringDifferenceWithAppearance

–与えられた文字列同士の相違点を計算する（結果がより小さい値のデータ同士が似ている）
on getApproximationBetweenStrings(aStr, bStr)
　　set aList to current application’s NSMutableArray’s arrayWithArray:(characters of aStr)
　　set bList to current application’s NSMutableArray’s arrayWithArray:(characters of bStr)
　　
　　set aIndex to current application’s NSCountedSet’s alloc()’s initWithArray:aList
　　set bIndex to current application’s NSCountedSet’s alloc()’s initWithArray:bList
　　
　　aIndex’s minusSet:bIndex
　　set aRes to aIndex’s allObjects()’s |count|()
　　
　　bIndex’s minusSet:aIndex
　　set bRes to bIndex’s allObjects()’s |count|()
　　
　　if aRes ≥ bRes then
　　　　return bRes
　　else
　　　　return aRes
　　end if
end getApproximationBetweenStrings

–Objective-Cライクなパラメータ記述
on deleteItem:anItem fromList:theList
　　set theArray to current application’s NSMutableArray’s arrayWithArray:theList
　　theArray’s removeObject:anItem
　　return theArray as list
end deleteItem:fromList:

–無意味句による装飾
on deleteItem by anItem from theList
　　set aRes to my deleteItem:anItem fromList:theList
　　return aRes
end deleteItem

–Objective-Cライクなパラメータ記述
on deleteItemsAtIndexes:theIndexes fromList:theList
　　set theArray to current application’s NSMutableArray’s arrayWithArray:theList
　　set theSet to current application’s NSMutableIndexSet’s indexSet()
　　repeat with anIndex in theIndexes
　　　　(theSet’s addIndex:(anIndex – 1))
　　end repeat
　　theArray’s removeObjectsAtIndexes:theSet
　　return theArray as list
end deleteItemsAtIndexes:fromList:

–無意味区による装飾
on deleteItems by theIndexes from theList
　　set aList to my deleteItemsAtIndexes:theIndexes fromList:theList
　　return aList
end deleteItems

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