指定のリスト中の指定要素が占める割合をパーセントで返す

指定List中の指定要素が占める割合をパーセントの数値で返すAppleScriptです。

ローカルのiTunesライブラリに入っている楽曲のアーティスト名を集計して、各アーティストがiTunes Music Storeで販売している楽曲のうち、どの程度の割合でApple Musicでも配信しているかを調査するAppleScriptを作成するために作成したものです。

AppleScript名：指定のリスト中の指定要素が占める割合をパーセントで返す

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

set aList to {false, false, false, false, false, false, false, false, false, false, false, false, false, true, false, false, true, true, true, false, true, true, true, true, true, true, true, false, false, true, true, true, true, true, true, true, true, true, true, true, true, true, true, true, true, true, true}

set tPercent to calcOneItemsPercent(aList, true) of me
–> 62 (%)

–true/falseで構成されるlistのうち、指定要素が占める割合を％で計算。小数点以下を四捨五入
on calcOneItemsPercent(aList, targItem)
　　set aLen to length of aList
　　set theCountedSet to current application’s NSCountedSet’s alloc()’s initWithArray:aList
　　set tRes to (theCountedSet’s countForObject:targItem)
　　if tRes < 1 then return 0
　　set pRes to (tRes / aLen) * 100
　　return (round pRes rounding as taught in school)
end calcOneItemsPercent