AutoHotkey Community

; demo.primenumber.ahk
MsgBox % isPrime(31337)

isPrime(iNr) { ; (w) by DerRaphael / zLib style release
   ; Thx Eratosthenes :)
   Loop, % Floor(Sqrt(iNr))
   {
      n := A_Index, cPrime := 1, ret := true
      if (A_index>1)
         Loop % n-1
            if ((Mod(n,a_index)=0) && (A_index>1)) {
               cPrime := 0
               break
            }
      if ((cPrime) && (A_index>1) && (Mod(iNr,n)=0)) {
         ret := false
         break
      }
   }
   Return ret
}