Proper divisors: Difference between revisions

Line 1,086:
if($prime[$i]) {multiple $i}
}
2..$n | where{$prime[$_]}
for($i = 3; $i -le $n; $i += 2) {
if($res -lt prime[$ni]) {$resi}
}
}
} else {
Write-Error "$n is not greater than 1"
Line 1,105 ⟶ 1,109:
if($n -ge 2) {
$array = prime-decomposition $n
function state($arr,lim $cnt,= $lim){ array.Count
function ifstate($cnt -ltres, $limi){ {
state if($arri +-lt @(0)) ($cnt + 1lim) $lim{
state ($arr + @(1)res) ($cnti + 1) $lim
} else{ state ($res*$array[$i]) ($i + 1)
} elseif($res -lt $i,n) {$res = 0, 1}
$arr | foreach{
if($_ -eq 1) {
$res *= $array[$i]
}
$i++
}
if($res -lt $n) {$res}
}
}
state @()1 0 $array.Count | sort -Unique
} else {@()}
 
}
"$(proper-divisor 100)"
678

edits