PGTで表記ゆれを修正する。それ以外の集計作業は普通にPowerShellで行う。

00music_poll_aggregate_using_PGT.ps1

$env:OPENAI_API_KEY = "your api key"
Import-Module PowerGenerativeToolkit
$answers = echo 夜に駆ける ハルジオン あの夢を追って ツバメ たぶん 怪物 ミスタ 群青色 三原色 ラブレタ 優しい彗星 セブンティーン ハルカ もう少しだけ アイドル 海の真ん中に ハルジオン アドベンチャー 大正浪漫 好き 夜に走る ハルジオン あの夢を踏んで ツバメ 多分 怪物さん ミスター 群青 3原色 ラブレター 優しいすい星 セブンティーン 春風 もう少しの間  アイドル  海のまにまに ハルジオン 冒険 大正ロマン 好きだ

$titles = echo 夜に駆ける あの夢をなぞって ハルジオン たぶん 群青 ハルカ 怪物 優しい彗星 もう少しだけ 三原色 ラブレター 大正浪漫 ツバメ ミスター 好きだ 海のまにまに アドベンチャー セブンティーン アイドル

$list = $answers | foreach {
    if ($_ -in $titles) { [pscustomobject]@{"raw" = $_; "title" = $_; "isCorrect" = $true } }
    else { [pscustomobject]@{"raw" = $_; "title" = ""; "isCorrect" = $false } }
}

$list |
    where { !$_.isCorrect } |
    foreach raw |
    sort -Unique | 
    Convert-PGTString -Rule "曲名を正しいタイトルに修正する。正しい曲名のリストは以下の通りです。`n$($titles -join "`n")" -IncludeInput -Example "優しいすい星=優しい彗星" | 
    foreach { $correction = @{} } { $correction[$_.input] = $_.output }

$list = $list | foreach {
    if (!$_.isCorrect) { $_.title = $correction[$_.raw] }
    $_
} 

Write-Host "集計結果"
$list | 
    Group-Object title -NoElement |
    sort count -Descending |
    foreach { $i = 1 } { Write-Host "${i}. $($_.Name): $($_.Count)票"; $i++ }
Write-Host 

Write-Host "表記ゆれの一覧"
$correction.GetEnumerator() |
    foreach { Write-Host $_.key → $_.Value }

README.md

• 参考元

https://twitter.com/kyubuns/status/1644538019997974529

• 実行結果

• PowerGenerativeToolkit

https://github.com/mutaguchi/PowerGenerativeToolkit