Skip to content

Instantly share code, notes, and snippets.

@mutaguchi

mutaguchi/00music_poll_aggregate_using_PGT.ps1

Last active April 8, 2023 05:14
Show Gist options
  • Save mutaguchi/053bb611edf40dd69f981b965045453a to your computer and use it in GitHub Desktop.
Save mutaguchi/053bb611edf40dd69f981b965045453a to your computer and use it in GitHub Desktop.
Download ZIP
PGTで表記ゆれを修正する。それ以外の集計作業は普通にPowerShellで行う。
Raw
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 }
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment