lumin https://blog.hatena.ne.jp/lumin/ luminのコードメモ https://lumin.hatenadiary.org/ perl @e=(0..99); @e=shuffle_hour(@e); print join( " ",@e),"\n"; sub shuffle_hour (@) { my @a=\(@_); my $n; my $i=@_; srand(int(time()/3600)); map { $n = rand($i--); (${$a[$n]}, $a[$n] = $a[$i])[0]; } @_; } 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Flumin.hatenadiary.org%2Fentry%2F20100520%2Fp2" title=" リストのシャッフル １時間は同じ内容で返す - luminのコードメモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-05-20 00:00:01 rich https://lumin.hatenadiary.org/entry/20100520/p2 1.0 100%