- 论坛徽章:
- 7
|
- my ( %m, %n );
- my @a = 'a' .. 'z';
- my @b = 0 .. 25;
- sub Rand {
- my ( @r, %h );
- for ( 0 .. 25 ) {
- my $r = int rand 26;
- redo if $h{$r}++;
- push @r, $r;
- }
- @r;
- }
- my @m = Rand;
- say '@m : ', join '|', @m;
- @m{ @a[@m] } = @m;
- my @n = Rand;
- say '@n : ', join '|', @n;
- @n{ @a[@n] } = @n;
- say '@b : ', join '|', @b;
- say '-' x 56;
- my @counter1 = hash2array( \%m );
- my @counter2 = hash2array( \%n );
- print '%m : ', "@counter1\n";
- print '%n : ', "@counter2\n";
- say '-' x 56;
- @m{@a} = @b;
- @n{@a} = @b;
- @counter1 = hash2array( \%m );
- @counter2 = hash2array( \%n );
- print '%m : ', "@counter1\n";
- print '%n : ', "@counter2\n";
- sub hash2array { return %{ $_[0] } }
复制代码- @m : 9|11|24|3|0|20|4|10|17|5|14|6|8|13|23|1|22|7|2|25|15|18|19|21|16|12
- @n : 23|8|19|7|17|13|5|12|24|2|16|11|1|10|9|20|21|3|22|4|25|18|14|15|6|0
- @b : 0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25
- --------------------------------------------------------
- %m : w 22 r 17 a 0 x 23 d 3 j 9 y 24 u 20 h 7 k 10 g 6 f 5 t 19 i 8 e 4 n 13 m 12 v 21 s 18 l 11 p 15 c 2 q 16 b 1 z 25 o 14
- %n : w 22 a 0 r 17 d 3 x 23 j 9 y 24 u 20 k 10 h 7 g 6 f 5 i 8 t 19 e 4 n 13 v 21 m 12 s 18 l 11 p 15 c 2 q 16 b 1 z 25 o 14
- --------------------------------------------------------
- %m : w 22 r 17 a 0 x 23 d 3 j 9 y 24 u 20 h 7 k 10 g 6 f 5 t 19 i 8 e 4 n 13 m 12 v 21 s 18 l 11 p 15 c 2 q 16 b 1 z 25 o 14
- %n : w 22 a 0 r 17 d 3 x 23 j 9 y 24 u 20 k 10 h 7 g 6 f 5 i 8 t 19 e 4 n 13 v 21 m 12 s 18 l 11 p 15 c 2 q 16 b 1 z 25 o 14
复制代码 |
|