[ create a new paste ] login | about

Link: http://codepad.org/Vtxp52bN    [ raw code | output | fork ]

Perl, pasted on Mar 5:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    $_="123456"; 
    for $n (1..12) {
      for $i (1..6) {
        do {
          $r = int(rand($l=length($_)));
          s/(.{$r})(.*)/$2$1/;
        } until s/^([^$i]{2})([^$i]{2})/$1$i$2/;
      }
    }
    print "$_\n";

    for $i (1..6) {
      $o = $_;
      $o =~ s/[^$i]/./g;
      print "$o\n";
    }


Output:
1
2
3
4
5
6
7
8
536124615623463425134214356213416514251352614253415436156234265214263516352364
...1...1..........1...1.....1..1..1...1....1.....1....1.........1.....1.......
....2.....2.....2....2.....2........2....2...2...........2..2..2..2.......2...
.3.........3..3....3....3....3.........3.......3....3.....3.........3...3..3..
.....4......4..4....4..4......4....4........4...4..4.......4.....4...........4
5.......5........5.......5.......5...5..5.....5...5....5......5......5...5....
..6...6..6...6............6.....6.........6..........6..6....6.....6...6....6.



Create a new paste based on this one


Comments: