n次元のリストのすべてのアイテム数をカウント

n次元のリスト（配列）のすべてのアイテム数をカウントするAppleScriptです。

2次元でも3次元でも４次元でも、いかなる多次元配列のリストをも1次元配列に変換できるサブルーチン「FlattenList」はいまだに代替できるものが見当たらないほど万能で、この「要素数をカウントする」用途にも使ってみました。

AppleScript名：n次元のリストのすべてのアイテム数をカウント

— Created 2017-10-30 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

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