# Permute.pm # # Copyright (c) 1999 - 2003 Edwin Pratomo # # You may distribute under the terms of either the GNU General Public # License or the Artistic License, as specified in the Perl README file, # with the exception that it cannot be placed on a CD-ROM or similar media # for commercial distribution without the prior approval of the author. package Algorithm::Permute; use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); require Exporter; require DynaLoader; require AutoLoader; @ISA = qw(Exporter DynaLoader); @EXPORT_OK = qw(permute); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. $VERSION = '0.06'; bootstrap Algorithm::Permute $VERSION; # Preloaded methods go here. # Autoload methods go after =cut, and are processed by the autosplit program. 1; __END__ =head1 NAME Algorithm::Permute - Handy and fast permutation with object oriented interface =head1 SYNOPSIS use Algorithm::Permute; my $p = new Algorithm::Permute(['a'..'d']); while (@res = $p->next) { print join(", ", @res), "\n"; } my @array = (1..9); Algorithm::Permute::permute { print "@array\n" } @array; =head1 DESCRIPTION This handy module makes performing permutation in Perl easy and fast, although perhaps its algorithm is not the fastest on the earth. Currently it only supports permutation n of n objects. No exported functions. This version is not backward compatible with the previous one, version 0.01. The old interface is no longer supported. =head1 METHODS =over 4 =item new [@list] Returns a permutor object for the given items. =item next Returns a list of the items in the next permutation. The order of the resulting permutation is the same as of the previous version of C. =item peek Returns the list of items which B by next(), but B. Could be useful if you wished to skip over just a few unwanted permutations. =item reset Resets the iterator to the start. May be used at any time, whether the entire set has been produced or not. Has no useful return value. =back =head1 CALLBACK STYLE INTERFACE Starting with version 0.03, there is a function - not exported by default - which supports a callback style interface: =over 4 =item permute BLOCK ARRAY A block of code is passed, which will be executed for each permutation. The array will be changed in place, and then changed back again before C returns. During the execution of the callback, the array is read-only and you'll get an error if you try to change its length. (You I change its elements, but the consequences are liable to confuse you and may change in future versions.) You have to pass an array, it can't just be a list. It B work with special arrays and tied arrays, though unless you're doing something particularly abstruse you'd be better off copying the elements into a normal array first. Example: my @array = (1..9); permute { print "@array\n" } @array; The code is run inside a pseudo block, rather than as a normal subroutine. That means you can't use C, and you can't jump out of it using C and so on. Also, C won't tell you anything helpful from inside the callback. Such is the price of speed. The order in which the permutations are generated is not guaranteed, so don't rely on it. The low-level hack behind this function makes it currently the fastest way of doing permutation among others. =back =head1 COMPARISON I've collected some Perl routines and modules which implement permutation, and do some simple benchmark. The whole result is the following. Permutation of B scalars: Abigail's: 9 wallclock secs ( 8.07 usr + 0.30 sys = 8.37 CPU) Algorithm::Permute: 5 wallclock secs ( 5.72 usr + 0.00 sys = 5.72 CPU) Algorithm::Permute qw(permute): 2 wallclock secs ( 1.65 usr + 0.00 sys = 1.65 CPU) List::Permutor: 27 wallclock secs (26.73 usr + 0.01 sys = 26.74 CPU) MJD's: 32 wallclock secs (32.55 usr + 0.02 sys = 32.57 CPU) perlfaq4: 36 wallclock secs (35.27 usr + 0.02 sys = 35.29 CPU) Permutation of B scalars (the Abigail's routine is commented out, because it stores all of the result in memory, swallows all of my machine's memory): Algorithm::Permute: 43 wallclock secs (42.93 usr + 0.04 sys = 42.97 CPU) Algorithm::Permute qw(permute): 15 wallclock secs (14.82 usr + 0.00 sys = 14.82 CPU) List::Permutor: 227 wallclock secs (226.46 usr + 0.22 sys = 226.68 CPU) MJD's: 307 wallclock secs (306.69 usr + 0.43 sys = 307.12 CPU) perlfaq4: 272 wallclock secs (271.93 usr + 0.33 sys = 272.26 CPU) The benchmark script is included in the bench directory. I understand that speed is not everything. So here is the list of URLs of the alternatives, in case you hate this module. =over 4 =item * Mark Jason Dominus' technique is discussed in chapter 4 Perl Cookbook, so you can get it from O'Reilly: ftp://ftp.oreilly.com/published/oreilly/perl/cookbook =item * Abigail's: http://www.foad.org/~abigail/Perl =item * List::Permutor: http://www.cpan.org/modules/by-module/List =item * The classic way, usually used by Lisp hackers: perldoc perlfaq4 =back =head1 HISTORY =over 4 =item * September 5, 2001 - version 0.03. A callback style interface, which is very fast, is added. =item * September 2, 2000 - version 0.02. Major interface changes, now using object oriented interface similar to C's. More efficient memory usage. Internal tweaking gives speed improvement - the list elements are no longer swapped, but only the indexes. =item * October 3, 1999 - Alpha release, version 0.01 =back =head1 AUTHOR Edwin Pratomo, I. The object oriented interface is taken from Tom Phoenix's C. Robin Houston invented and contributed the callback style interface. =head1 ACKNOWLEDGEMENT Yustina Sri Suharini - my fiance, for providing the permutation problem to me. =head1 SEE ALSO =over 2 =item * B - Korsh and Garrett =item * B - Moret and Shapiro =back =cut