blob: d9f480104990eba010fc7be9ded5601cd63c0551 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
#!perl
package Games::Word;
require Exporter;
@ISA = qw/Exporter/;
@EXPORT_OK = qw/random_permutation is_permutation/;
use strict;
use warnings;
use Math::Combinatorics qw/factorial/;
use Test::Deep::NoTest;
sub random_permutation {
my $word = shift;
return '' if $word eq '';
use integer;
my $len = length $word;
my $perm_index = shift;
$perm_index = defined($perm_index) ? $perm_index :
int(rand(factorial($len)));
die "invalid permutation index" if $perm_index >= factorial($len) ||
$perm_index < 0;
my $current_index = $perm_index / factorial($len - 1);
my $rest = $perm_index % factorial($len - 1);
my $first_letter = substr($word, $current_index, 1);
substr($word, $current_index, 1) = '';
return $first_letter . random_permutation($word, $rest);
}
sub is_permutation {
my @word_letters = split //, shift;
my @perm_letters = split //, shift;
return eq_deeply(\@word_letters, bag(@perm_letters));
}
=head1 NAME
Games::Word - ???
=head1 VERSION
Version 0.01 released ???
=cut
our $VERSION = '0.01';
=head1 SYNOPSIS
use Games::Word;
do_stuff();
=head1 DESCRIPTION
=head1 SEE ALSO
L<Foo::Bar>
=head1 AUTHOR
Jesse Luehrs, C<< <jluehrs2 at uiuc.edu> >>
=head1 BUGS
No known bugs.
Please report any bugs through RT: email
C<bug-games-word at rt.cpan.org>, or browse
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Games-Word>.
=head1 SUPPORT
You can find this documentation for this module with the perldoc command.
perldoc Games::Word
You can also look for information at:
=over 4
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/Games-Word>
=item * CPAN Ratings
L<http://cpanratings.perl.org/d/Games-Word>
=item * RT: CPAN's request tracker
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Games-Word>
=item * Search CPAN
L<http://search.cpan.org/dist/Games-Word>
=back
=head1 COPYRIGHT AND LICENSE
Copyright 2008 Jesse Luehrs.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
1;
|
