By logging in to LiveJournal using a third-party service you accept LiveJournal's User agreement
#!/bin/perl
# jenkin nighmare model
# basic constants
$MAX=100;
$SURVIVAL=1/0.75; # How big a chance % to survive for a "GOOD" gene (0% for bad)
$PLAGUE=0.50; # how many percents are infected during plague
#----------------------------------------------- INIT
for ($0..$MAX-1) {$A[$_]=0.0};
sub randindex(){int(rand(scalar @A))};
$A[0]=1.0; # tourist
do {
#------------------------------------------------ PLAGUE
$KILL=int($MAX*$PLAGUE); # half of population
for (1..$KILL) {
$I=randindex;
if ($A[$I]>$Y ? $X-$Y : 0) : ($X1>$Y ? 1/2 : $X-$Y)
};
@B=();
while (scalar @A+scalar @B<$MAX){ # restore population
$I=randindex();$J=randindex(); # total promisciouicy
push @B,B($A[$I])+B($A[$J]);
};
push @A,@B; # add kids to pool
#----------------------------------------------- SHOW
$S=0;for (@A) {printf "%.1f ",$_;$S+=$_}; $S=$S/$MAX;
$N++;
print "\n\nStep $N\t $COLOR=$S\n"
} until (($S==0) || ($S==1)) # win or lose?
fir_vst в Где найти книги pdf, djvu в 2017 г? | Список электронных библиотек