set aList to {{507, 162}, {338, 166}, {389, 166}, {448, 166}, {286, 110}, {504, 109}, {558, 108}, {341, 113}, {394, 115}, {447, 112}, {234, 107}, {611, 110}, {286, 58}, {501, 63}, {556, 58}, {337, 59}, {391, 60}, {448, 63}, {611, 58}}

set rangeList to {{500, 100}, {550, 180}} –{{x1,y1}, {x2,y2}}
set resList to withinRange(rangeList, aList) of me
–>　　{​​​​​{​​​​​​​507, ​​​​​​​162​​​​​}, ​​​​​{​​​​​​​504, ​​​​​​​109​​​​​}​​​}

on withinRange(rangeList as list, targetList as list)
　　set aRect to makeNSRect(rangeList) of me
　　
　　set includedList to {}
　　repeat with i in targetList
　　　　copy i to {x, y}
　　　　set aPoint to current application’s NSMakePoint(x, y)
　　　　set aRes to (current application’s NSPointInRect(aPoint, aRect)) as boolean
　　　　
　　　　if aRes = true then
　　　　　　set the end of includedList to contents of i
　　　　end if
　　end repeat
　　
　　return includedList
end withinRange

on makeNSRect(aList as list)
　　try
　　　　copy aList to {{x1, y1}, {x2, y2}}
　　　　set xWidth to (x2 – x1)
　　　　set yHeight to (y2 – y1)
　　　　set a1Rect to {origin:{x:x1, y:y1}, |size|:{width:xWidth, height:yHeight}}
　　　　return a1Rect
　　on error
　　　　return missing value
　　end try
end makeNSRect

set aRect to current application’s NSMakeRect(0, 0, 100, 80)
–> {origin:{x:0.0, y:0.0}, |size|:{width:100.0, height:80.0}}

set aWidth to current application’s NSWidth(aRect)
–> 100.0

set aHeight to current application’s NSHeight(aRect)
–> 80.0

set aMinX to current application’s NSMinX(aRect)
–> 0.0

set aMaxX to current application’s NSMaxX(aRect)
–> 100.0

set aMidX to current application’s NSMidX(aRect)
–> 50.0

set aMinY to current application’s NSMinY(aRect)
–> 0.0

set aMaxY to current application’s NSMaxY(aRect)
–> 80.0

set aMidY to current application’s NSMidY(aRect)
–> 40.0

set aList to {{1, 2, 3}, {4, 5, 6}, {7, 8, 9, {1, 2, 3}}}
set aRes to FlattenList(aList) of me
set aLen to length of aRes

on FlattenList(aList)
　　set oldDelims to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {"????"}
　　set aString to aList as text
　　set aList to text items of aString
　　set AppleScript’s text item delimiters to oldDelims
　　return aList
end FlattenList

–配列をシャッフルして取得
set anArray to current application’s NSMutableArray’s alloc()’s initWithArray:{1, 2, 3, 4, 5}
set bArray to (current application’s DCRandomize’s shuffleArray:anArray) as list
–>　　{​​​​​5, ​​​​​3, ​​​​​1, ​​​​​2, ​​​​​4​​​}

–1〜10の数値をシャッフルして配列取得
set cArray to (current application’s DCRandomize’s shuffle:1 max:10) as list
–>　　{​​​​​9, ​​​​​4, ​​​​​6, ​​​​​5, ​​​​​3, ​​​​​2, ​​​​​7, ​​​​​8, ​​​​​1, ​​​​​10​​​}

–5〜10の範囲の乱数を取得
set dArray to (current application’s DCRandomize’s range:5 max:10) as integer
–>　　7

–5〜10の範囲で 9以外の乱数を取得
set eArray to (current application’s DCRandomize’s exact:5 max:10 exceptId:9)
–>　　9

set anArray to current application’s NSArray’s arrayWithArray:{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
set newArray to anArray’s shuffledArray() as list — requires macOS 10.12

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 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 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