Schnellster Primzahlenrechner ever

Übersicht

BlitzBasic

Codearchiv

Gehe zu Seite Zurück 1, 2

	Kabelbinder Sieger des WM-Contest 2006	Mo, Aug 29, 2005 20:13 Antworten mit Zitat
@BlackTermi: Schlauer Junge!
<Wing Avenger Download> ◊◊◊ <Macrophage Download>

Kabelbinder

Sieger des WM-Contest 2006

Mo, Aug 29, 2005 20:13
Antworten mit Zitat

@BlackTermi: Schlauer Junge! Laughing

	regaa	Mo, Aug 29, 2005 23:30 Antworten mit Zitat
....Und ich verstehe immer noch nicht wofür man Primzahlen in einem SPiel oder Programm gebrauchten könnte .
UltraMixer Professional 3 - Download QB,HTML,CSS,JS,PHP,SQL,>>B2D,B3D,BP,BlitzMax,C,C++,Java,C#,VB6 , C#, VB.Net

regaa

Mo, Aug 29, 2005 23:30
Antworten mit Zitat

....Und ich verstehe immer noch nicht wofür man Primzahlen in einem SPiel oder Programm gebrauchten könnte Confused

UltraMixer Professional 3 - Download
QB,HTML,CSS,JS,PHP,SQL,>>B2D,B3D,BP,BlitzMax,C,C++,Java,C#,VB6 , C#, VB.Net

	Dreamora	Mo, Aug 29, 2005 23:35 Antworten mit Zitat
Verschlüsselter Datentransfer. Dort sind sie sogar zwingend notwendig.
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Mo, Aug 29, 2005 23:35
Antworten mit Zitat

Verschlüsselter Datentransfer. Dort sind sie sogar zwingend notwendig.

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	#Reaper Newsposter	Di, Aug 30, 2005 10:19 Antworten mit Zitat
Bei wadim's Version kommt aber eine Primzahl mehr raus, als bei Tritons version...? ^^ MfG #Reaper btw: @Triton: was fürn Rechner hastn du? Bei mir dauert dein code so um die 650ms,mal ein wenig mehr, mal ein wenig weniger^^ Liegt aber vll auch an den vielen anderen programmen, die da noch laufen
AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!) Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

#Reaper

Newsposter

Di, Aug 30, 2005 10:19
Antworten mit Zitat

Bei wadim's Version kommt aber eine Primzahl mehr raus, als bei Tritons version...? ^^

MfG
#Reaper

btw: @Triton: was fürn Rechner hastn du? Bei mir dauert dein code so um die 650ms,mal ein wenig mehr, mal ein wenig weniger^^ Very Happy

Liegt aber vll auch an den vielen anderen programmen, die da noch laufen Wink

AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!)
Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

	lettorTrepuS	Di, Aug 30, 2005 16:48 Antworten mit Zitat
-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger.

lettorTrepuS

Di, Aug 30, 2005 16:48
Antworten mit Zitat

-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger.

	BlackTermi	Di, Aug 30, 2005 18:11 Antworten mit Zitat
ICH

BlackTermi

Di, Aug 30, 2005 18:11
Antworten mit Zitat

ICH

	BlackTermi	Di, Aug 30, 2005 18:13 Antworten mit Zitat
geh doch einfach mal die zeilen durch, dann siehst du doch welche primzahlen da stehen.... (musst ja nicht jede zahl der million ansehen....)

BlackTermi

Di, Aug 30, 2005 18:13
Antworten mit Zitat

geh doch einfach mal die zeilen durch, dann siehst du doch welche primzahlen da stehen.... (musst ja nicht jede zahl der million ansehen....)

	lettorTrepuS	Di, Aug 30, 2005 19:37 Antworten mit Zitat
-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger.

lettorTrepuS

Di, Aug 30, 2005 19:37
Antworten mit Zitat

-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger.

	Triton	Di, Aug 30, 2005 23:18 Antworten mit Zitat
Wenn du es nicht glaubst, kannst du doch ne Probe durchführen und alle von meinem Programm ermittelten Zahlen testen lassen Naja, es stimmt schon - genau das habe ich schließlich gemacht, um sicher zu gehen Zitat: @Triton: was fürn Rechner hastn du? http://www.wanderrad.de/tritonchvu/aboutme3.htm -- Ansonsten möchte ich alle bitten, die Diskusion hier etwas einzuschränken und nur wirklich interessantes oder neues zum Thema zu posten.
Coding: silizium-net.de \| Portfolio: Triton.ch.vu

Triton

Di, Aug 30, 2005 23:18
Antworten mit Zitat

Wenn du es nicht glaubst, kannst du doch ne Probe durchführen und alle von meinem Programm ermittelten Zahlen testen lassen Wink

Naja, es stimmt schon - genau das habe ich schließlich gemacht, um sicher zu gehen Smile

Zitat:

@Triton: was fürn Rechner hastn du?

http://www.wanderrad.de/tritonchvu/aboutme3.htm

--

Ansonsten möchte ich alle bitten, die Diskusion hier etwas einzuschränken und nur wirklich interessantes oder neues zum Thema zu posten.

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

	Rallimen Sieger des 30-EUR-Wettbewerbs	Di, Sep 06, 2005 0:02 Antworten mit Zitat
Nachdem ich das auch mal versucht habe hier mein SCHNELLSTER!! 8) BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Print \"HighSpeed Primzahlen Ermittler \" Print \"\" BisZahl = Input (\"Primzahlen bis : \") ;1000000 Print \"\" Dim p(BisZahl) Time1 = MilliSecs () t1 = 2 t2 = 2 ;primzahlen ermitteln For t1 = 2 To BisZahl If p (t1) = 0 Then t2 = t1 t2 = t2 + t1 While t2 <= BisZahl p (t2) = 1 t2 = t2 + t1 Wend End If Next ;PrimZahlen Speichern Dat = WriteFile (\"Primzahlen bis \" + BisZahl + \" ralli.txt\") For t1 = 2 To BisZahl If p (t1) = 0 Then WriteLine dat,t1 a = a + 1 End If Next CloseFile Dat time1 = MilliSecs () - time1 Print \"\" Print a + \" Primzahlen bis \" + BisZahl + \" gefunden\" Print \"gespeichert in <Primzahlen bis \" + BisZahl + \" ralli.txt>\" Print \"\" Print \"In \"+time1 + \" Millisekunden berechnet!\" Print \"\" Print \"by Rallimen\" Print \"Bye..\" WaitKey Der Code geht absolut alle durch, auch die geraden Zahlen!
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Di, Sep 06, 2005 0:02
Antworten mit Zitat

Nachdem ich das auch mal versucht habe hier mein SCHNELLSTER!! 8)

BlitzBasic: [AUSKLAPPEN]

Print \"HighSpeed Primzahlen Ermittler \"
Print \"\"

BisZahl = Input (\"Primzahlen bis : \") ;1000000
Print \"\"
Dim p(BisZahl)
Time1 = MilliSecs ()
    t1 = 2
    t2 = 2
    ;primzahlen ermitteln
    For t1 = 2 To BisZahl
        If p (t1) = 0 Then 
            t2 = t1
            t2 = t2 + t1
            While t2 <= BisZahl
                p (t2) = 1
                t2 = t2 + t1
            Wend
        End If
    Next
    
    ;PrimZahlen Speichern
    Dat = WriteFile (\"Primzahlen bis \" + BisZahl + \" ralli.txt\")
    For t1 = 2 To BisZahl
        If p (t1) = 0 Then 
            WriteLine dat,t1
            a = a + 1
        End If
    Next
    CloseFile Dat
time1 = MilliSecs () - time1
Print \"\"
Print a + \" Primzahlen  bis \" + BisZahl + \" gefunden\"
Print \"gespeichert in <Primzahlen bis \" + BisZahl + \" ralli.txt>\"
Print \"\"
Print \"In \"+time1 + \" Millisekunden berechnet!\"
Print \"\"
Print \"by Rallimen\"
Print \"Bye..\"
WaitKey

Der Code geht absolut alle durch, auch die geraden Zahlen!

[BB2D | BB3D | BB+]

Zuletzt bearbeitet von Rallimen am Di, Sep 06, 2005 20:27, insgesamt einmal bearbeitet

	x.Force	Di, Sep 06, 2005 0:47 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] 78498 Primzahlen bis 1000000 gefunden In 328 Millisekunden berechnet! Echt der schnellste bisher klasse
AMD Athlon XP 2000+ \| 1024mb DDR-Ram \| Asus Radeon 9600XT \| BENQ FP757 17°Zoll TFT Was kümmert mich mein Geschwätz von gestern? (Konrad Adenauer) -.-

x.Force

Di, Sep 06, 2005 0:47
Antworten mit Zitat

Code: [AUSKLAPPEN]

78498 Primzahlen bis 1000000 gefunden

In 328 Millisekunden berechnet!

Echt der schnellste bisher Smile

klasse

AMD Athlon XP 2000+ | 1024mb DDR-Ram | Asus Radeon 9600XT | BENQ FP757 17°Zoll TFT

Was kümmert mich mein Geschwätz von gestern? (Konrad Adenauer) -.-

	#Reaper Newsposter	Di, Sep 06, 2005 16:11 Antworten mit Zitat
Mit Speichern 230 ms, ohne speichern 123ms Btw: Du hattest die Variable "BisZahl" vergessen o_O @Triton: aso und ok Bye
AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!) Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

#Reaper

Newsposter

Di, Sep 06, 2005 16:11
Antworten mit Zitat

Mit Speichern 230 ms, ohne speichern 123ms Smile

Btw: Du hattest die Variable "BisZahl" vergessen o_O Very Happy

@Triton: aso Smile

und ok

Bye

AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!)
Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

	Rallimen Sieger des 30-EUR-Wettbewerbs	Di, Sep 06, 2005 20:29 Antworten mit Zitat
Upps hab gerade gesehen das meinem Code die ersten Zeilen fehlen, habs aber korrigiert! Mal sehen wo ich das noch schneller machen kann! EDIT: und es geht noch schneller mit einer Bank! BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Print \"HighSpeed Primzahlen Ermittler \" Print \"\" ;BisZahl = Input (\"Primzahlen bis : \") ;1000000 BisZahl = 1000000 Time1 = MilliSecs () Print \"\" bank = CreateBank (BisZahl) t1 = 2 t2 = 2 ;primzahlen ermitteln For t1 = 2 To BisZahl If PeekByte (bank,t1) = 0 Then a = a + 1 t2 = t1 t2 = t2 + t1 While t2 <= BisZahl PokeByte (bank , t2,1) t2 = t2 + t1 Wend End If Next ;PrimZahlen Speichern Dat = WriteFile (\"Primzahlen bis \" + BisZahl + \" ralli.txt\") For t1 = 2 To BisZahl If PeekByte (bank,t1) = 0 WriteLine dat,t1 End If Next CloseFile Dat time1 = MilliSecs () - time1 Print \"\" Print a + \" Primzahlen bis \" + BisZahl + \" gefunden\" Print \"gespeichert in <Primzahlen bis \" + BisZahl + \" ralli.txt>\" Print \"\" Print \"In \"+time1 + \" Millisekunden berechnet!\" Print \"\" Print \"by Rallimen\" Print \"Bye..\" WaitKey
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Di, Sep 06, 2005 20:29
Antworten mit Zitat

Upps hab gerade gesehen das meinem Code die ersten Zeilen fehlen, habs aber korrigiert!

Mal sehen wo ich das noch schneller machen kann!

EDIT:
und es geht noch schneller mit einer Bank!
BlitzBasic: [AUSKLAPPEN]

Print \"HighSpeed Primzahlen Ermittler \" 
Print \"\" 

;BisZahl = Input (\"Primzahlen bis : \") ;1000000
BisZahl = 1000000
Time1 = MilliSecs () 
Print \"\" 
bank = CreateBank (BisZahl)
    t1 = 2 
    t2 = 2 
    ;primzahlen ermitteln 
    For t1 = 2 To BisZahl
    If PeekByte (bank,t1) = 0 Then
        a = a + 1
        t2 = t1 
            t2 = t2 + t1 
            While t2 <= BisZahl
                PokeByte (bank , t2,1)
                t2 = t2 + t1 
            Wend 
        End If 
    Next 
    
    ;PrimZahlen Speichern 
    Dat = WriteFile (\"Primzahlen bis \" + BisZahl + \" ralli.txt\") 
    For t1 = 2 To BisZahl
    If PeekByte (bank,t1) = 0 
            WriteLine dat,t1 
        End If 
    Next 
    CloseFile Dat 
time1 = MilliSecs () - time1 
Print \"\" 
Print a + \" Primzahlen  bis \" + BisZahl + \" gefunden\" 
Print \"gespeichert in <Primzahlen bis \" + BisZahl + \" ralli.txt>\" 
Print \"\" 
Print \"In \"+time1 + \" Millisekunden berechnet!\" 
Print \"\" 
Print \"by Rallimen\" 
Print \"Bye..\" 
WaitKey

[BB2D | BB3D | BB+]

	#Reaper Newsposter	Mi, Sep 07, 2005 15:15 Antworten mit Zitat
Mit speichern schafft er es in 199 Millisekunden, aber ohne speichern sogar in nur 86 ms!! Klasse!!! MfG #Reaper
AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!) Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

#Reaper

Newsposter

Mi, Sep 07, 2005 15:15
Antworten mit Zitat

Mit speichern schafft er es in 199 Millisekunden, aber ohne speichern sogar in nur 86 ms!!
Klasse!!! Smile

MfG
#Reaper

AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!)
Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

Gehe zu Seite Zurück 1, 2

Übersicht

BlitzBasic

Codearchiv

Nach Oben

BlitzBasic Portal

Schnellster Primzahlenrechner ever