Das deutsche Python-Forum

Code: Alles auswählen

#!/usr/bin/python
# coding: iso-8859-1

l = []
llen = 0
n = 2

while llen < 15:
    x = 0
    for i in l:
        if n % i == 0:
            x = 1
            break
    if x == 0:
        l.append(n)
        llen += 1
    n += 1

for i in range(llen):
    print str(i + 1) + ". " + str(l[i])

Code: Alles auswählen

from itertools import count

def primes():
    """ eine Generator-Funktion, die die Folge der Primzahlen erzeugt """
    ps = []                         # gefundene Primzahlen
    for n in count(2):              # gehe durch alle ganzen Zahlen, beginnend mit der kleinsten Primzahl
        if all(n % p for p in ps):  # Primzahlen sind ganze Zahlen, die durch keine kleinere Primzahl ohne Rest teilbar sind
            ps.append(n)            # n ist eine solche Zahl. Wir merken sie uns.
            yield n                 # wir geben sie aus

for i, p in zip(range(1, 16), primes()):
    print(i, ':', p)

Code: Alles auswählen

gib die ersten 15 Primzahlen aus:
    erzeuge die Folge der Primzahlen
    gib die ersten 15 davon aus

erzeuge Primzahlen:
    für jede ganze Zahl n >= 2:
        wenn n eine Primzahl ist:
            gib n aus

Primzahl-Test:
    jede ganze Zahl >= 2, die durch keine kleinere Primzahl ohne Rest teilbar ist, ist prim

Code: Alles auswählen

var foo = ''.concat(
    'dies ist ein sehr langer und langweiliger Text mit vielen Zeilen ',
    'und noch mehr Zeilen und noch mehr ',
    'denn leider kann Javascript keine mehrzeiligen Strings wie z.B. Python '
    'mit den drei """ ...'
);

Code: Alles auswählen

(defn prime? [n]
  (not-any? zero? (for [i (range 2 n)] (rem n i))))

(defn all-primes []
  (for [candidate (iterate inc 2)
        :when (prime? candidate)]
        candidate))
        
(println (take 15 (all-primes)))

Code: Alles auswählen

{-# LANGUAGE UnicodeSyntax #-}
import Prelude.Unicode

primes :: [ℤ]
primes = sieve [2..]
    where sieve (p:xs) = p : sieve [x | x ← xs, x `mod` p ≠ 0]

main = putStrLn ∘ show $ take 15 primes

Code: Alles auswählen

import std.stdio : writefln;
import std.array : join;
import std.algorithm : map;
import std.conv : to;

enum NUM_PRIMES = 15;

uint[] primes(uint num) {
    uint[] res;
    
    for(int n = 2; res.length < num; n++) {       
        bool is_prime = true;
        foreach(uint p; res) {
            if(n % p == 0) {
                is_prime = false;
                break;
            }
        }
        
        if(is_prime) {       
            res ~= n;
        }
    }

    return res;
}

version(ctfe) {
    uint[] pr = primes(NUM_PRIMES);
}

void main() {
    version(ctfe) {
        uint p[] = pr;
    } else {
        uint p[] = primes(NUM_PRIMES);
    }
    writefln("%s", join(map!(to!string)(p), ", "));
}

Code: Alles auswählen

        bool is_prime = true;
        foreach(uint p; res) {
            if(n % p == 0) {
                is_prime = false;
                break;
            }
        }

Code: Alles auswählen

dmd -ofprimes1 primes.d    
dmd -ofprimes2 -version=ctfe primes.d
time ./primes1
time ./primes2

Code: Alles auswählen

Program FirstPrimes;
Const
    N = 15;
Var
    i, pn : Byte;
    candidate : Word;
    isPrime : Boolean;
    primes : Array[1..N] Of Word;
Begin
    primes[1] := 2;
    pn := 1;
    candidate := 3;
    While pn < N Do
    Begin
        isPrime := True;
        For i := 2 To pn Do
        Begin
            If candidate MOD primes[i] = 0 Then
            Begin
                isPrime := False;
                Break;
            End;
        End;
        If isPrime Then
        Begin
            Inc(pn);
            primes[pn] := candidate;
        End;
        Inc(candidate, 2);
    End;
    For i := 1 To N Do
    Begin
        WriteLn(i:2, '. Primzahl = ', primes[i]);
    End;
End.

Code: Alles auswählen

bool(reduce(lambda x, y: x and n%y, res, True))

Code: Alles auswählen

#!/usr/bin/env io
Range

n := 15
primes := List with(2)
3 toBy(Number unsignedLongMax, 2) foreach(candidate,
    primes detect(prime, candidate mod(prime) == 0) ifNil(
        (primes append(candidate) size == n) ifTrue(break(primes))
    )
) foreach(i, prime, "#{i + 1}. Primzahl = #{prime}" interpolate println)

Code: Alles auswählen

   10 N=15:DIM P(N):P(1)=2:PN=1:C=3
   20 FOR I=1 TO PN:T=INT(C/P(I)):F=T*P(I)=C:IF F THEN I=PN
   30 NEXT
   40 IF NOT F THEN PN=PN+1:P(PN)=C:IF PN=N THEN 60
   50 C=C+2:GOTO 20
   60 FOR I=1 TO N:PRINT I;"{LEFT}. PRIMZAHL =";P(I):NEXT

Code: Alles auswählen

« 15 { 2 } 3 → M PS I
  «
    WHILE PS SIZE M <
    REPEAT I PS MOD 0 POS NOT
      « PS { I } EVAL + 'PS' STO
      » IFT 'I' 2 STO+
    END PS
  »
»