Skip to content

Instantly share code, notes, and snippets.

@yamasushi

yamasushi/shuffle

Last active January 3, 2016 08:57
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save yamasushi/20edd22b4b5b1156281f to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save yamasushi/20edd22b4b5b1156281f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
shuffle
#!/usr/bin/perl
# https://gist.github.com/yamasushi/20edd22b4b5b1156281f
use strict;
use warnings;
use utf8;
binmode STDIN,":utf8";
binmode STDOUT,":utf8";
use List::Util qw(shuffle);
print join '', shuffle(split //, (join '',<>));
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment