Primality by trial division: Difference between revisions
→{{header|PowerShell}}
(→{{header|Haskell}}: used in emirps.) |
|||
Line 1,949:
=={{header|PowerShell}}==
{{works with|PowerShell|4.0}}
<lang powershell>function isPrime ($n) {▼
<lang PowerShell>
if ($n -eq 1) {▼
return (@(2..[Math]::Sqrt($n) | Where-Object { $n % $_ -eq 0 }).Length -eq 0)▼
elseif ($n -eq 3) {$true}
else{
$m = [Math]::Floor([Math]::Sqrt($n))
▲
}
}
<b>Output:</b>
<pre>
isPrime 1 : False
isPrime 2 : True
isPrime 3 : True
isPrime 4 : False
isPrime 5 : True
isPrime 6 : False
isPrime 7 : True
isPrime 8 : False
isPrime 9 : False
isPrime 10 : False
</pre>
=={{header|Prolog}}==
|