ようこそ。睡眠不足なプログラマのチラ裏です。

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