Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: generating permutations

by tybalt89 (Monsignor)
on Mar 29, 2017 at 17:42 UTC ( [id://1186408] : note . print w/replies, xml ) Need Help??


in reply to generating permutations

#!/usr/bin/perl -l # http://perlmonks.org/?node_id=1186402 use strict; use warnings; $_ = 12345; 1 while print, s/.*\K # find the last (.) # digit such that (.*) # there is a later (latest) (.)(??{$1 > $3 and 'x'}) # digit greater than it (.*) # and get rest # swap those two digits ( $1 & $3 ) # then reverse everything after the first swapped digit / $3 . reverse $2.$1.$4 /xe