solve726.ps1

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

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