十字の壁がそそり立つ世界の中を君は螺旋状に歩く (規則性、PowerShell)

問題	http://nabetani.sakura.ne.jp/hena/ord28spirwa/
シミュレーション (Python/Ruby/C++)	http://qiita.com/cielavenir/items/8c77a158136bd668a27b
規則性 (Python/Ruby/C/C#/Java)	http://qiita.com/cielavenir/items/a285b0cea4a26ff886b8
規則性 (D/Go/Swift/PHP/ Vala )	http://qiita.com/cielavenir/items/edb1daff9ea861a418ec
規則性 (VB/F#/Perl)	http://qiita.com/cielavenir/items/0c84af4049ab161f82c1
規則性 (PowerShell)	http://qiita.com/cielavenir/items/d9ef9f12068e99e888f2
規則性 ( AIR-lang )	http://qiita.com/cielavenir/items/d804f61412fb4f07ba06
規則性 (Crystal/Perl6)	http://qiita.com/cielavenir/items/13896a662b05da8b77a2
Rubyの多次元配列で最初の要素を加工して返したい (tap/break等について)	http://qiita.com/cielavenir/items/3f209351b924e2615f5e

• twitterを見ていて、「yhpgの過去問から1つ選んでPowerShellで答案を書け」なる電波を受信したので、しこしこ書きました。
  • https://twitter.com/cedretaber/status/782156425694892032
  • https://twitter.com/basso414f/status/782217929311997953
• とりあえず採点プログラムで通してあります。
  • 確認は OSXにて。
• それにしても、PowerShellは除算が酷いですね＾＾
  • 整数除算をするには[int]()ではなく[Math]::Floor()すればよいようです。

tyama_hena28_fast.ps1

#!/usr/bin/env powershell
#http://qiita.com/Nabetani/items/23ebddb44f0234e7fb15
#http://nabetani.sakura.ne.jp/hena/ord28spirwa/

$dir="ESWN"
while(1){
    $line=[Console]::ReadLine()
    if($line.length -eq 0){break}
    $a=$line.Split(":")
    $b=$a[0].Split(",")
    $n=[Convert]::ToInt32($b[0])
    $e=[Convert]::ToInt32($b[1])
    $s=[Convert]::ToInt32($b[2])
    $w=[Convert]::ToInt32($b[3])
    $days=[Convert]::ToInt64($a[1])
    $days+=1
    [int[]]$l=@($e,$s,$w,$n)
    $i=0
    $f=1
    for(;$f;$i++){
        [int[]]$x=@( # それぞれ括弧でくくらないとだめっぽい
            ($l[$i%4]+($i%4 -eq 0)),
            (([Math]::Floor($i/4)+1)*2),
            ($l[$i%4]-($i%4 -eq 3))
        )
        for($j=0;$j -lt 3;$j++){
            if($days-$x[$j] -lt 0){
                [Console]::WriteLine($dir[($i+$j)%4])
                $f=0
                break
            }
            $days-=$x[$j]
        }
    }
    [Console]::Out.Flush()
}