Skip to content

Instantly share code, notes, and snippets.

@yappo
Created December 10, 2016 09:21
Show Gist options
  • Save yappo/3d502b73d9d637e6ffb99fabfa4cdd38 to your computer and use it in GitHub Desktop.
Save yappo/3d502b73d9d637e6ffb99fabfa4cdd38 to your computer and use it in GitHub Desktop.
use v5.24;
use strict;
use warnings;
use utf8;
my @欲しい = qw(
https://twitter.com/ast_j/status/807489960437653504
https://twitter.com/nasa9084/status/807489992117227520
https://twitter.com/yoku0825/status/807490016972681216
https://twitter.com/ichikawa_0829/status/807490026246316032
https://twitter.com/debility/status/807490030444777473
https://twitter.com/818uuu/status/807490043413598208
https://twitter.com/itoh_bmark/status/807490096232480768
https://twitter.com/marcy_terui/status/807490149361692672
https://twitter.com/hisaichi5518/status/807490220870377474
https://twitter.com/T_akms/status/807490303535902720
https://twitter.com/maka2_donzoko/status/807490775856484352
https://twitter.com/39panskpn/status/807490923311415296
https://twitter.com/isaoeka/status/807490994274873344
https://twitter.com/toku_bass/status/807492669182124032
https://twitter.com/tadsan/status/807497787583537152
https://twitter.com/CodeHex/status/807498644345659392
);
for (1..10) {
my $あたり = int(rand($#欲しい + 1));
say splice @欲しい, $あたり, 1;
}
__END__
https://twitter.com/39panskpn/status/807490923311415296
https://twitter.com/yoku0825/status/807490016972681216
https://twitter.com/818uuu/status/807490043413598208
https://twitter.com/debility/status/807490030444777473
https://twitter.com/ichikawa_0829/status/807490026246316032
https://twitter.com/CodeHex/status/807498644345659392
https://twitter.com/itoh_bmark/status/807490096232480768
https://twitter.com/ast_j/status/807489960437653504
https://twitter.com/tadsan/status/807497787583537152
https://twitter.com/hisaichi5518/status/807490220870377474
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment