implement random_string_from, which returns a string containing random characters from some character list

1 files changed, 13 insertions, 1 deletions

diff --git a/lib/Games/Word.pm b/lib/Games/Word.pm
index 3aae86c..7b281f5 100644
--- a/lib/Games/Word.pm
+++ b/lib/Games/Word.pm
@@ -3,7 +3,8 @@ package Games::Word;
 require Exporter;
 @ISA = qw/Exporter/;
 @EXPORT_OK = qw/random_permutation is_permutation all_permutations
-                shared_letters shared_letters_by_position/;
+                shared_letters shared_letters_by_position
+                random_string_from/;
 
 use strict;
 use warnings;
@@ -89,6 +90,17 @@ sub shared_letters_by_position {
     return wantarray ? @letters : grep { defined } @letters;
 }
 
+sub random_string_from {
+    my ($letters, $length) = @_;
+
+    die "invalid letter list" if length $letters < 1 && $length > 0;
+    my @letters = split //, $letters;
+    my $ret = '';
+    $ret .= $letters[int rand @letters] for 1..$length;
+
+    return $ret;
+}
+
 =head1 NAME
 
 Games::Word - ???