PureBasic

Code : Tout sélectionner

OpenConsole()
Repeat
PrintN("Entrez un nombre a verifier :")
a$=Input()
nb.q=Val(a$)
Premier=1
tt.f=ElapsedMilliseconds()
i.q=2
j.q=3
While (j.q*j.q)<=nb.q
  j.q=j.q+1  
Wend
While i.q<j.q
  If (nb.q % i.q)=0
    Premier=0
    j.q=nb.q/i.q
    PrintN(Str(i.q)+" * "+Str(j.q))
  EndIf
  i.q=i.q+1
Wend
tt.f=(ElapsedMilliseconds()-tt.f)/1000.000
If Premier=1
  PrintN("Ce nombre est PREMIER !")
Else
  PrintN("Ce nombre n'est PAS PREMIER !")
EndIf
PrintN("Temps de verification : "+StrF(tt.f))
PrintN("")
PrintN("Voulez vous verifier un autre nombre ? (o/n)")
a$=Input()
If LCase(a$)<>"o"
  CloseConsole()
  End
EndIf
PrintN("")
ForEver

Code : Tout sélectionner

; algo nat the great pour blitzmax
; port en pb by zaphod - 23/05/2011
; en blitzmax = 0.838 sec
; en pb = 1.42 sec
; pentium 4 - 3 Ghz
; 
; modifier par graph100
; avec la modif : 0.67 sec
; core2duo 2.50Ghz
; 
; >>>> Compiler sans le debuger
;
Define num.i = 15485864

num + 1

Define sqrnum.i = Sqr(num) + 1

Dim PrimeFlags.b(num)
Dim Primes.i(num)
Define tim.i,count.i
Define mill.i = ElapsedMilliseconds()


For x = 2 To sqrnum
	If primeflags(x) = #False
		Primes(count) = x
		count + 1     
		
		tim = x
		Repeat
			tim + x
			primeflags(tim) = #True
		Until x + tim >= num
	EndIf
Next


For y = sqrnum To num - 1
	If primeflags(y) = #False
		Primes(count) = y
		
		count + 1      
	EndIf
Next
mill = ElapsedMilliseconds()-mill



MessageRequester("", StrF(mill / 1000.0) + " seconds " + Str(count) + " primes found!")

Code : Tout sélectionner

; algo nat the great pour blitzmax
; port en pb by zaphod - 23/05/2011
; en blitzmax = 0.838 sec
; en pb = 1.42 sec
; pentium 4 - 3 Ghz
;
; >>>> Compiler sans le debuger
;
Define num.i = 15485864
Define sqrnum.i = Sqr(num)+1
Dim PrimeFlags.b(num)
Dim Primes.i(num)
Define tim.i,count.i = 2
Define mill.i = ElapsedMilliseconds()
;
For x = 3 To sqrnum Step 2
		If PrimeFlags(x) = #False 
				tim = x + x
				Repeat
						PrimeFlags(tim) = #True
						tim + x
				Until tim >= num
		EndIf
Next 
;Local count:Int
Primes(1) = 2
For x = 3 To num Step 2
		If PrimeFlags(x) = #False 
				Primes(count) = x
				count+1   
				Debug x
		EndIf
Next
mill = ElapsedMilliseconds()-mill
;
MessageRequester("",StrF(mill/1000.0) +" seconds "+ Str(count)+" primes found!")

Code : Tout sélectionner

; algo nat the great pour blitzmax
; port en pb by zaphod - 23/05/2011
; en blitzmax = 0.838 sec
; en pb = 1.42 sec
; pentium 4 - 3 Ghz
;
; >>>> Compiler sans le debuger
;
Define num.i = 15485864
Define sqrnum.i = Sqr(num)+1
Dim PrimeFlags.b(num)
Dim Primes.i(num)
Define tim.i,count.i = 2
Define mill.i = ElapsedMilliseconds()
;
For x = 3 To sqrnum Step 2
	If PrimeFlags(x) = #False
		Primes(count) = x
		count+1   
		
		tim = x + x
		Repeat
			PrimeFlags(tim) = #True
			tim + x
		Until tim >= num
	EndIf
Next
;Local count:Int

Primes(1) = 2
For y = x To num Step 2
	If PrimeFlags(y) = #False
		Primes(count) = y
		count+1   
	EndIf
Next
mill = ElapsedMilliseconds()-mill
;
MessageRequester("",StrF(mill/1000.0) +" seconds "+ Str(count)+" primes found!")

Code : Tout sélectionner

; algo nat the great pour blitzmax
; port en pb by zaphod - 23/05/2011
; en blitzmax = 0.838 sec
; en pb = 1.42 sec
; pentium 4 - 3 Ghz
;
; >>>> Compiler sans le debuger
;
Define num.i = 15485864
Define sqrnum.i = Sqr(num)+1
Dim PrimeFlags.b(num)
Dim Primes.i(num)
Define tim.i,count.i = 2
Define mill.i = ElapsedMilliseconds()
;
For x = 3 To sqrnum Step 2
		If PrimeFlags(x) = #False
				Primes(count) = x
				count+1   
				
				tim = x + x
;-------------------------------------- Partie du code remplacé en assembleur				
;;;				Repeat;
;;;						PrimeFlags(tim) = #True
;;;						tim + x
;;;					Until tim >= num
									
       	; Repeat
          	MOV	 ebx,dword [v_tim]
          	MOV	 ebp,dword [a_PrimeFlags]
          Repeat5:
        ; PrimeFlags(tim) = #True
          ;MOV	 ebx,dword [v_tim]        ; deplacé en dehors de la boucle
          ;MOV	 ebp,dword [a_PrimeFlags] ; deplacé en dehors de la boucle
          	MOV	 byte [ebp+ebx],1
        ; tim + x
          ;MOV	 ebx,dword [v_tim]
          	ADD	 ebx,dword [v_x]
          ;MOV	 dword [v_tim],ebx        ; deplacé en dehors de la boucle
        ; Until tim >= num
          ;MOV	 ebx,dword [v_tim]         
          	CMP	 ebx,dword [v_num]
          	JL	 l_repeat5
        ;_Until5:
        MOV	 dword [v_tim],ebx
;-------------------------------------- 	
        
		EndIf
Next
;Local count:Int

Primes(1) = 2
For y = x To num Step 2
		If PrimeFlags(y) = #False
				Primes(count) = y
				count+1   
		EndIf
Next
mill = ElapsedMilliseconds()-mill
;
MessageRequester("",StrF(mill/1000.0) +" seconds "+ Str(count)+" primes found!")