sehr schnelle primzahlenausgabe

Übersicht

BlitzBasic

Codearchiv

	dubitat Betreff: sehr schnelle primzahlenausgabe	Mi, Jul 20, 2005 11:56 Antworten mit Zitat
habe mir das zurechtgebastelt... hoffe es hilft euch weiter könnt es auch als prüfung umschreiben einer primzahl... BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] fileout = WriteFile(\"primzahlen.txt\") Type zahl Field zahl End Type x=2 teiler=1 primzahl=1 While primzahl<=1000000 donix=0 teiler=1 primzahl = primzahl + x If x=2 Then x=4 If x=4 Then x=2 i=2 For primzahlen.zahl = Each zahl If primzahl Mod primzahlen\zahl = 0 Then donix = donix+1 EndIf Next If donix = 0 Then WriteLine fileout,primzahl primzahlen.zahl = New zahl primzahlen\zahl=primzahl Print primzahl EndIf Wend CloseFile fileout
Erare humanum est - Irren ist Menschlich

dubitat

Betreff: sehr schnelle primzahlenausgabe

Mi, Jul 20, 2005 11:56
Antworten mit Zitat

habe mir das zurechtgebastelt... hoffe es hilft euch weiter Wink

könnt es auch als prüfung umschreiben einer primzahl...
BlitzBasic: [AUSKLAPPEN]

fileout = WriteFile(\"primzahlen.txt\")
Type zahl
Field zahl
End Type
x=2
teiler=1
primzahl=1

While primzahl<=1000000
donix=0
teiler=1
primzahl = primzahl + x
If x=2 Then x=4
If x=4 Then x=2
i=2
For primzahlen.zahl = Each zahl
If primzahl Mod primzahlen\zahl = 0 Then
donix = donix+1
EndIf
Next
If donix = 0 Then
WriteLine fileout,primzahl
primzahlen.zahl = New zahl
primzahlen\zahl=primzahl
Print primzahl
EndIf
Wend
CloseFile fileout

Erare humanum est - Irren ist Menschlich

	Triton	Mi, Jul 20, 2005 15:49 Antworten mit Zitat
Naja, sonderlich schnell ist das nicht. Bis 1 Mio hat es bei mir sage und schreibe 1169360 ms (~ 19 min, 30 s) gedauert. Der Primzahltest den ich unter https://www.blitzforum.de/viewtopic.php?t=11977 ganz unten gepostet habe, schafft das gleiche in nur 578 ms und ist damit 2023x schneller als deiner. Sogar der ganz flexible Primzahltest den ich noch auf strings aufgebaut habe, ist noch mindestens 150x schneller
Coding: silizium-net.de \| Portfolio: Triton.ch.vu

Triton

Mi, Jul 20, 2005 15:49
Antworten mit Zitat

Naja, sonderlich schnell ist das nicht. Bis 1 Mio hat es bei mir sage und schreibe 1169360 ms (~ 19 min, 30 s) gedauert. Der Primzahltest den ich unter
https://www.blitzforum.de/viewtopic.php?t=11977
ganz unten gepostet habe, schafft das gleiche in nur 578 ms und ist damit 2023x schneller als deiner.

Sogar der ganz flexible Primzahltest den ich noch auf strings aufgebaut habe, ist noch mindestens 150x schneller Rolling Eyes

Coding: silizium-net.de | Portfolio: Triton.ch.vu