solve726_2.ps1

function solve726_2 ([int]$n){
    $a = 0..$n
    $b = $a | % -begin{$acc=0} {$acc += $_; $acc}
    $r0 = $n
    for($l = 0; $l -lt $n; $l++){
        for($r = $l+1; $r -le $n; $r++){
            $x = $n - ($b[$r] - $b[$l])
            if(0 -gt $x){ break }
            if(0 -eq $x){ ,$a[($l+1)..$r]; break }
        }
    }
}

solve726_2 2014 | % {$_ -join ","}