zeitkomplexität

[delphi_newbie_123]

Delphi-Quellcode:

#!/usr/bin/tclsh
#!/usr/bin/env tclsh

puts ""
puts "Ich berechne alle Primzahlen im Bereich 'Null bis zu einer eingegeben natürlichen Zahl'."
puts ""
puts "Bitte die Zahl eingeben:"
set zahl [gets stdin]

set primzahl_liste {}

#set anfang [clock seconds]

for {set i 2} {$i<=$zahl} {incr i} {
   set prim 1
   set test [expr sqrt($i)]
   foreach primzahl $primzahl_liste {
      if {$primzahl>$test} then {
         break
      } else {
         if { [expr $i%$primzahl]==0 } then {
            set prim 0
            break
         }
      }
   }
   if {$prim==1} then {
      lappend primzahl_liste $i
   }
}

#set ende [clock seconds]

puts ""
#puts "Im Zahlbereich bis $zahl gibt es [llength $primzahl_liste] Primzahlen:"
#puts $primzahl_liste
puts "Im Zahlbereich bis $zahl gibt es [llength $primzahl_liste] Primzahlen:"

#puts "Benötigte Zeit: [expr $ende - $anfang] Sekunden"