perl：shuffle value-sorted hash？

Question

起初對不起我的英語 - 我希望你能理解我。

有一個哈希：

$hash{a} = 1; 
$hash{b} = 3; 
$hash{c} = 3; 
$hash{d} = 2; 
$hash{e} = 1; 
$hash{f} = 1; 

我想值（不是鍵）來排序，所以我有：

for my $key (sort { $hash{ $a } <=> $hash{ $b } } keys %hash ) { ... } 

，起初我得到的所有值爲1的鑰匙，然後值2，等等。太好了。

但是，如果散列沒有改變，鍵的順序（在這個排序中）總是相同的。

問題：如何對排序結果進行洗牌，因此每次運行'for'循環時，我都會得到不同的值爲1，值爲2等的鍵的順序？

Answer 1

不太清楚我也瞭解你的需求，但是這是正確的：

use List::Util qw(shuffle); 

my %hash; 
$hash{a} = 1; 
$hash{b} = 3; 
$hash{c} = 3; 
$hash{d} = 2; 
$hash{e} = 1; 
$hash{f} = 1; 

for my $key (sort { $hash{ $a } <=> $hash{ $b } } shuffle(keys %hash )) { 
    say "hash{$key} = $hash{$key}" 
} 

Answer 2

你可以有升序和decending爲了兩個函數和像你想通過隨機按鍵循環相​​應地使用他們喜歡

sub hasAscending { 
    $hash{$a} <=> $hash{$b}; 
} 

sub hashDescending { 
    $hash{$b} <=> $hash{$a}; 
} 

foreach $key (sort hashAscending (keys(%hash))) { 
    print "\t$hash{$key} \t\t $key\n"; 
} 

foreach $key (sort hashDescending (keys(%hash))) { 
    print "\t$hash{$key} \t\t $key\n"; 
} 

Answer 3

看來。

Perl，並不按順序或排序順序存儲，但對於你來說這似乎不夠隨機，所以你可能想要創建一個鍵數組並循環。

首先，用鍵填充數組，然後使用隨機數算法（1 .. $＃length_of_array）將數組中該位置的鍵推送到array_of_keys。

---

如果您嘗試隨機化按值排序哈希的鍵，則會有所不同。

See Codepad

my %hash = (a=>1, b=>3, c=>3, d=>2, e=>1, f=>1); 
my %hash_by_val; 

for my $key (sort { $hash{$a} <=> $hash{$b} } keys %hash) { 
    push @{ $hash_by_val{$hash{$key}} }, $key; 
} 


for my $key (sort keys %hash_by_val){ 
    my @arr  = @{$hash_by_val{$key}}; 
    my $arr_ubound = $#arr; 

    for (0..$arr_ubound){ 
     my $randnum = int(rand($arr_ubound)); 
     my $val  = splice(@arr,$randnum,1); 
     $arr_ubound--; 
     print "$key : $val\n";     # notice: output varies b/t runs 
    } 
} 

Answer 4

你可以簡單地添加排序的另一個層面，這將被用來當常規排序方法無法區分兩個值。例如：

sort { METHOD_1 || METHOD_2 || ... METHOD_N } LIST 

例如：

sub regular_sort { 
    my $hash = shift; 
    for (sort { $hash->{$a} <=> $hash->{$b} } keys %$hash) { 
     print "$_ "; 
    }; 
} 
sub random_sort { 
    my $hash = shift; 
    my %rand = map { $_ => rand } keys %hash; 
    for (sort { $hash->{$a} <=> $hash->{$b} || 
     $rand{$a} <=> $rand{$b} } keys %$hash) { 
     print "$_ "; 
    }; 
} 

Answer 5

爲了通過數值鍵進行排序，與具有相同值的密鑰的隨機排序，我看到兩種解決方案：

use List::Util qw(shuffle); 
use sort 'stable'; 
my @keys = 
    sort { $hash{$a} <=> $hash{$b} } 
    shuffle keys %hash; 

或

my @keys = 
    map $_->[0], 
    sort { $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] } 
    map [ $_, $hash{$_}, rand ], 
    keys %hash; 

---

需要use sort 'stable';以防止sort破壞shuffle返回的列表的隨機性。

---

上述對Schwartzian Transform的使用不是試圖優化。我已經看到人們在比較函數本身中使用rand來試圖達到上述結果，但這樣做是有問題的，原因有兩個。

當使用「行爲不端」的比較，諸如，將結果記錄爲未定義，所以sort被允許返回垃圾，重複元素，缺少元素等

即使sort不返回垃圾，這不會是一個合理的排序。結果將被稱重。