2012-02-15T10:01:33 bianca

Habe ein Array mit 500 Werten.
Nun sollen weitere 200 Werte jeweils mittig eingefügt werden.
Also Wert 1 genau mittig, also hinter das 250. Element.
Wert 2 in die vordere Mitte, also hinter das 125. Element.
Wert 3 in die hintere Mitte, also hinter das 375. Element.
Dann wieder weiter in die Mitte zwischen 1 und 125, also hinter das 62. Element. Danach die zweite Mitte zwischen 125 und 250, also hinter das 187. Element und so weiter und so weiter, bis die 200 völlig verteilt sind.
Sollte keine Mitte mehr vorhanden sein wieder von vorne in der Mitte der dann neuen Gesamtmenge.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl

use warnings;
use strict;

use vars qw($a $b $c $d $x);

$a = 500;

$x = 0;
while ($x < 10) {
    $b = $a;
    $a = $a / 2;
    $c = ($b - $a) / 2;
    $d = ($b + $a) / 2;
    print "$c\n$d\n";
    $x ++;
}