diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-10-14 05:35:44 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-10-14 05:35:44 +0100 |
| commit | 35251a48c41b394fe9017bdad1b04824fd340197 (patch) | |
| tree | a5e8970a9ba550a908fffcd1ab5c0a3fb9570252 | |
| parent | 814c3433d9062abaaedbcd217d332aca019b257a (diff) | |
| download | perlweeklychallenge-club-35251a48c41b394fe9017bdad1b04824fd340197.tar.gz perlweeklychallenge-club-35251a48c41b394fe9017bdad1b04824fd340197.tar.bz2 perlweeklychallenge-club-35251a48c41b394fe9017bdad1b04824fd340197.zip | |
use slice for both swaps
| -rw-r--r-- | challenge-134/james-smith/perl/ch-1.pl | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/challenge-134/james-smith/perl/ch-1.pl b/challenge-134/james-smith/perl/ch-1.pl index 665acde010..fd268b70a0 100644 --- a/challenge-134/james-smith/perl/ch-1.pl +++ b/challenge-134/james-smith/perl/ch-1.pl @@ -33,8 +33,5 @@ sub next_perm { return 1; ## Return true to say can continue... } - say @s while next_perm && $count--; - - |