Sort primes from list to a list: Difference between revisions
Added AutoHotkey
(Added Sidef) |
Alpha bravo (talk | contribs) (Added AutoHotkey) |
||
Line 36:
are: 2 7 13 43 103
</pre>
=={{header|AutoHotkey}}==
<lang AutoHotkey>Primes := [2,43,81,122,63,13,7,95,103]
t := [], result := []
for i, n in Primes
if isPrime(n)
t[n, i] := true
for n, obj in t
for i, v in obj
result.push(n)
isPrime(n){
Loop, % floor(sqrt(n))
v := A_Index = 1 ? n : mod(n,A_Index) ? v : v "," A_Index "," n//A_Index
Return (v = n)
}</lang>
{{out}}
<pre>[2, 7, 13, 43, 103]</pre>
=={{header|AWK}}==
<lang AWK>
| |||