Skip to content

Instantly share code, notes, and snippets.

@grum
grum / bs.pl
Created December 20, 2014 19:50
#!env perl -l
use strict;
use warnings;
my @words = map { chomp; s/\s//; $_ } <DATA>;
print join '', map { splice @words, rand @words, 1 } (1 .. shift || 10);
__DATA__
Strategy