ASOCでレコードのリストをユニーク化

AppleScript名：ASOCでレコードのリストをユニーク化

use AppleScript version "2.4"
use framework "Foundation"
use scripting additions

set msRecList to {{msName:"格陸戦型ジム獲得済 COST: 120", sortieTimes:12}, {msName:"狙ジム･スナイパーカスタム獲得済 COST: 200", sortieTimes:6}, {msName:"狙ジム･スナイパーカスタム獲得済 COST: 200", sortieTimes:6}}

set newMsList to uniquefyList(msRecList)
–>　　{{sortieTimes:6, msName:"狙ジム･スナイパーカスタム獲得済 COST: 200"}, {sortieTimes:12, msName:"格陸戦型ジム獲得済 COST: 120"}}

–レコードのリストをユニーク化
on uniquefyList(aList)
　　set msArray to current application’s NSArray’s arrayWithArray:aList
　　set aRes to current application’s NSSet’s setWithArray:(msArray’s allObjects())
　　set bRes to aRes’s allObjects()
　　set cRes to bRes as list
　　return cRes
end uniquefyList