指定の1D Listの要素数がaMaxLenに満たない場合には、1D Listの末尾のアイテムでaMaxLenまで埋める

指定の1D List（Array）の要素数が指定数に満たない場合には、List末尾のアイテムで指定要素数まで埋めるAppleScriptです。

{"1", "2", "3", "4", "5"}

のようなListがあって、最大数を10と指定してあった場合には、

{"1", "2", "3", "4", "5", "5", "5", "5", "5", "5"}

のように処理します。

AppleScript名：指定の1D Listの要素数がaMaxLenに満たない場合には、1D Listの末尾のアイテムでaMaxLenまで埋める

— Created 2019-01-03 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aList to {"11111", "22222", "33333", "44444", "55555"}
set aaList to fillByLastItemToMaxItems(aList, 6) of me
–> {"11111", "22222", "33333", "44444", "55555", "55555"}

–指定の1D Listの要素数がaMaxLenに満たない場合には、1D Listの末尾のアイテムでaMaxLenまで埋める
on fillByLastItemToMaxItems(aList as list, aMaxLen as integer)
　　set aLen to length of aList
　　if aLen is not equal to aMaxLen then
　　　　set anItem to contents of last item of aList
　　　　repeat aMaxLen – aLen times
　　　　　　set the end of aList to anItem
　　　　end repeat
　　end if
　　
　　return aList
end fillByLastItemToMaxItems