Algorithm-Permute

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

      over just a few unwanted permutations.

    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.

CALLBACK STYLE INTERFACE

    Starting with version 0.03, there is a function - not exported by
    default - which supports a callback style interface:

    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 permute 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 can change its elements, but the
      consequences are liable to confuse you and may change in future
      versions.)

README  view on Meta::CPAN

      * Algorithms from P to NP, Vol. I - Moret and Shapiro

AUTHOR

    Edwin Pratomo <edpratomo@cpan.org> was the original author.

    Stephan Loyd <sloyd@cpan.org> is co-maintainer after version 0.12.

    The object oriented interface is taken from Tom Phoenix's
    List::Permutor. Robin Houston <robin@kitsite.com> invented and
    contributed the callback style interface.

COPYRIGHT AND LICENSE

    This software is copyright (c) 1999 by Edwin Pratomo.

    This is free software; you can redistribute it and/or modify it under
    the same terms as the Perl 5 programming language system itself.

lib/Algorithm/Permute.pm  view on Meta::CPAN

=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<permute> 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<can>
change its elements, but the consequences are liable to confuse you and may change in future
versions.)

lib/Algorithm/Permute.pm  view on Meta::CPAN

=back

=head1 AUTHOR

Edwin Pratomo <edpratomo@cpan.org> was the original author.

Stephan Loyd <sloyd@cpan.org> is co-maintainer after version 0.12.

The object oriented interface is taken from Tom Phoenix's C<List::Permutor>.
Robin Houston <robin@kitsite.com> invented and contributed the callback
style interface.

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 1999 by Edwin Pratomo.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

=cut

ppport.h  view on Meta::CPAN

=head2 --compat-version=I<version>

Tell F<ppport.h> to check for compatibility with the given
Perl version. The default is to check for compatibility with Perl
version 5.003. You can use this option to reduce the output
of F<ppport.h> if you intend to be backward compatible only
down to a certain Perl version.

=head2 --cplusplus

Usually, F<ppport.h> will detect C++ style comments and
replace them with C style comments for portability reasons.
Using this option instructs F<ppport.h> to leave C++
comments untouched.

=head2 --quiet

Be quiet. Don't print anything except fatal errors.

=head2 --nodiag

Don't output any diagnostic messages. Only portability

ppport.h  view on Meta::CPAN

      $cppc++;
      $file{changes} += $c =~ s/$rccs$ix$rcce/$ccs$ccom[$ix] $cce/;
    }
    else {
      $c =~ s/$rccs$ix$rcce/$ccom[$ix]/;
    }
  }

  if ($cppc) {
    my $s = $cppc != 1 ? 's' : '';
    warning("Uses $cppc C++ style comment$s, which is not portable");
  }

  my $s = $warnings != 1 ? 's' : '';
  my $warn = $warnings ? " ($warnings warning$s)" : '';
  info("Analysis completed$warn");

  if ($file{changes}) {
    if (exists $opt{copy}) {
      my $newfile = "$filename$opt{copy}";
      if (-e $newfile) {