set rList to {{"近 装甲強化型ジム COST: 200", 60}, {"遠 ジム･キャノン COST: 160", 39}, {"近 ジム･コマンド COST: 200", 32}, {"近 ジム(WD隊) COST: 160", 26}, {"近 陸戦型ガンダム COST: 220", 23}, {"近 ジム改 COST: 240", 22}, {"遠 ガンタンク COST: 200", 21}, {"格 ジム(指揮官機) COST: 160", 20}, {"近 ジム COST: 120", 19}, {"格 陸戦型ジム COST: 120", 10}, {"近 ジム･トレーナー COST: 120", 9}, {"射 ジム･スナイパーII(WD隊) COST: 220", 8}, {"射 陸戦型ガンダム(ジム頭) COST: 200", 7}, {"格 ガンダム COST: 280", 6}, {"近 ザクII(F2) COST: 160", 6}, {"格 ジム･ストライカー COST: 180", 4}, {"近 ジム･寒冷地仕様 COST: 200", 4}, {"狙 ジム･スナイパーカスタム COST: 200", 3}, {"近 アクア･ジム COST: 160", 2}, {"遠 量産型ガンタンク COST: 160", 2}, {"格 ガンキャノン重装型 COST: 160", 1}, {"近 ジム･コマンドライトアーマー COST: 160", 1}, {"射 ガンキャノン COST: 200", 1}, {"格 ボールK型 COST: 120", 0}, {"射 デザート･ジム COST: 160", 0}}

set rRes to retRankingList(rList) of me
–> {{rank:1, aCon:"近 装甲強化型ジム COST: 200", aTimes:60}, {rank:2, aCon:"遠 ジム･キャノン COST: 160", aTimes:39}, {rank:3, aCon:"近 ジム･コマンド COST: 200", aTimes:32}, {rank:4, aCon:"近 ジム(WD隊) COST: 160", aTimes:26}, {rank:5, aCon:"近 陸戦型ガンダム COST: 220", aTimes:23}, {rank:6, aCon:"近 ジム改 COST: 240", aTimes:22}, {rank:7, aCon:"遠 ガンタンク COST: 200", aTimes:21}, {rank:8, aCon:"格 ジム(指揮官機) COST: 160", aTimes:20}, {rank:9, aCon:"近 ジム COST: 120", aTimes:19}, {rank:10, aCon:"格 陸戦型ジム COST: 120", aTimes:10}, {rank:11, aCon:"近 ジム･トレーナー COST: 120", aTimes:9}, {rank:12, aCon:"射 ジム･スナイパーII(WD隊) COST: 220", aTimes:8}, {rank:13, aCon:"射 陸戦型ガンダム(ジム頭) COST: 200", aTimes:7}, {rank:14, aCon:"格 ガンダム COST: 280", aTimes:6}, {rank:14, aCon:"近 ザクII(F2) COST: 160", aTimes:6}, {rank:16, aCon:"格 ジム･ストライカー COST: 180", aTimes:4}, {rank:16, aCon:"近 ジム･寒冷地仕様 COST: 200", aTimes:4}, {rank:18, aCon:"狙 ジム･スナイパーカスタム COST: 200", aTimes:3}, {rank:19, aCon:"近 アクア･ジム COST: 160", aTimes:2}, {rank:19, aCon:"遠 量産型ガンタンク COST: 160", aTimes:2}, {rank:21, aCon:"格 ガンキャノン重装型 COST: 160", aTimes:1}, {rank:21, aCon:"近 ジム･コマンドライトアーマー COST: 160", aTimes:1}, {rank:21, aCon:"射 ガンキャノン COST: 200", aTimes:1}, {rank:24, aCon:"格 ボールK型 COST: 120", aTimes:0}, {rank:24, aCon:"射 デザート･ジム COST: 160", aTimes:0}}

on retRankingList(rList)
　　set aText to {} –出力用リスト
　　set aCount to 0
　　
　　set prevPoint to -1
　　set buffCount to 0
　　
　　
　　repeat with i in rList
　　　　
　　　　copy i to {j, bCount}
　　　　
　　　　if prevPoint = bCount then
　　　　　　–同じポイントが続いた場合
　　　　　　if buffCount is not equal to 0 then
　　　　　　　　–同じポイントが複数回（２回以上）続いている場合
　　　　　　　　set buffCount to buffCount + 1
　　　　　　　　log {"case A:", buffCount, aCount, bCount, prevPoint}
　　　　　　else
　　　　　　　　–同じポイントが続いている場合（２回目）
　　　　　　　　set buffCount to 1
　　　　　　　　log {"case B:", buffCount, aCount, bCount, prevPoint}
　　　　　　end if
　　　　else
　　　　　　–同じポイントが続いていない場合
　　　　　　if buffCount is not equal to 0 then
　　　　　　　　–直前まで同じポイントが続いていた場合
　　　　　　　　set aCount to aCount + buffCount + 1 –バッファしておいたカウントを出力する
　　　　　　　　set buffCount to 0
　　　　　　　　log {"case C:", buffCount, aCount, bCount, prevPoint}
　　　　　　else
　　　　　　　　–通常パターン（直前まで同じポイントが続いていたりしない）
　　　　　　　　set buffCount to 0
　　　　　　　　set aCount to aCount + 1 –ランキング順位を+1
　　　　　　　　log {"case D:", buffCount, aCount, bCount, prevPoint}
　　　　　　end if
　　　　end if
　　　　
　　　　set the end of aText to {rank:aCount, aCon:j as string, aTimes:bCount}
　　　　copy bCount to prevPoint
　　　　
　　end repeat
　　
　　return aText
　　
end retRankingList

–リストを任意のデリミタ付きでテキストに
on retArrowText(aList, aDelim)
　　set aText to ""
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end retArrowText