PowerShellで世界のナベアツ問題
「ブラッディ・マンデイ」の高校生ハッカー藤丸君も使っている程に流行というPowerShell。
そんなわけで、とりあえず肩慣らしに当ブログ恒例の「世界のナベアツ問題」を書いてみた*1。
function nabeatsu { 1..40|%{ $n=@("Aho")[$_%3]; if (!($_.ToString().IndexOf("3") -eq -1)) { $n=@("Aho")[0]; }; $n+=@("Ahan")[$_%8]; ($n,$_)[!$n] } }
一応短いコードを意識して書いたつもり。
お、PowerShellなかなかやるなwww
実行結果
PS> nabeatsu
1
2
Aho
4
5
Aho
7
Ahan
Aho
10
11
Aho
Aho
14
Aho
Ahan
17
Aho
19
20
Aho
22
Aho
AhoAhan
25
26
Aho
28
29
Aho
Aho
AhoAhan
Aho
Aho
Aho
Aho
Aho
Aho
Aho
Ahan
※Haskellで書いたネタはこちら→Haskellで世界のナベアツ問題
※C#で書いたネタはこちら→FizzBuzz問題と世界のナベアツ
*1:無意味にprofile.ps1に追加してみたりw