Thread Bingokarten erstellen (11 answers)
Opened by frankes at 2010-09-27 22:19

payx
 2010-09-28 13:17
#141544 #141544
User since
2006-05-04
564 Artikel
BenutzerIn

user image
Hallo frankes,

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

use strict;
use warnings;

my @begriffe = qw(eins zwei drei vier fuenf sechs sieben acht neun zehn);
my $anzahlKaertchen = 10;

for (1..$anzahlKaertchen) {
    print "Kaertchen Nr. " . $_ . ":\n";
    my @vals = (0..9);
    for my $i (0..5) {
        my $rand = int(rand()*@vals);
        print "\t" . $begriffe[$vals[$rand]] . "\n";
        splice(@vals,$rand,1);
    }
}

Obwohl Du sagtest, dass
Quote
wenn möglich jeder Begriff in der Anzahl auf den Spielkärtchen gleich gewichtet
sein soll, habe ich das hier jetzt nicht eigens überwacht. Je höher die Anzahl der Kärtchen, desto gleichmäßiger wird nach dem Gesetz der großen Zahl die Verteilung der Begriffe sein.

HTH
Grüße
payx

//EDIT:
PS: OK, habe überlesen, dass jede Karte (Kombination) nur einmal vorkommen darf, das macht es natürlich doch ein bisschen komplizierter.
Last edited: 2010-09-28 13:25:14 +0200 (CEST)

View full thread Bingokarten erstellen