序数を求めるルーチン同士を比較

AppleScript名：序数を求めるルーチン同士を比較

repeat with i from 1 to 1000
　　set a to retOrdinalNumStr(i) of me
　　set b to getOrdinalNumber(i) of me
　　
　　log {a, b}
end repeat

–数値を与えると序数の文字列を返す
on retOrdinalNumStr(aNum)
　　set aStr to aNum as string
　　
　　–下１桁の数字を取得
　　set last1Str to last character of aStr
　　
　　–下２桁目の数字を取得
　　if length of aStr > 1 then
　　　　set last2Str to character -2 of aStr
　　else
　　　　set last2Str to ""
　　end if
　　
　　–場合分け
　　set retStr to ""
　　if last1Str = "1" then
　　　　if last2Str = "1" then
　　　　　　set retStr to "th" –11
　　　　else
　　　　　　set retStr to "st"
　　　　end if
　　　　
　　else if last1Str = "2" then
　　　　if last2Str = "1" then
　　　　　　set retStr to "th" –12
　　　　else
　　　　　　set retStr to "nd"
　　　　end if
　　　　
　　else if last1Str = "3" then
　　　　if last2Str = "1" then
　　　　　　set retStr to "th" –13
　　　　else
　　　　　　set retStr to "rd"
　　　　end if
　　　　
　　else
　　　　set retStr to "th"
　　　　
　　end if
　　
　　return aStr & retStr
　　
end retOrdinalNumStr

— 序数表現に変更
on getOrdinalNumber(anyInteger)
　　
　　if (anyInteger mod 10) = 1 and (anyInteger mod 100) ≠ 11 then
　　　　set tempList to anyInteger & "st"
　　else if (anyInteger mod 10) = 2 and (anyInteger mod 100) ≠ 12 then
　　　　set tempList to anyInteger & "nd"
　　else if (anyInteger mod 10) = 3 and (anyInteger mod 100) ≠ 13 then
　　　　set tempList to anyInteger & "rd"
　　else
　　　　set tempList to anyInteger & "th"
　　end if
　　
　　return tempList as text
　　
end getOrdinalNumber