diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-02-23 05:57:05 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-02-23 05:57:05 +0000 |
| commit | e1028616f2f800ca00c27c0bc63c419f5f041cc8 (patch) | |
| tree | f5fa10e68548d8210a96c1e4c399ac84d4b28107 | |
| parent | 7fac9125976bc8d07f4f3203ad300887120c55aa (diff) | |
| download | perlweeklychallenge-club-e1028616f2f800ca00c27c0bc63c419f5f041cc8.tar.gz perlweeklychallenge-club-e1028616f2f800ca00c27c0bc63c419f5f041cc8.tar.bz2 perlweeklychallenge-club-e1028616f2f800ca00c27c0bc63c419f5f041cc8.zip | |
whitespace
| -rw-r--r-- | challenge-101/james-smith/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-101/james-smith/perl/ch-1.pl b/challenge-101/james-smith/perl/ch-1.pl index b223880b14..c3b75a4ff6 100644 --- a/challenge-101/james-smith/perl/ch-1.pl +++ b/challenge-101/james-smith/perl/ch-1.pl @@ -21,7 +21,7 @@ sub pack_spiral { ## no greater than columns as printing is neater - but for no ## other reason... - my( $rows ) = reverse grep { ! (@_ % $_) } 1 .. sqrt @_; + my( $rows ) = reverse grep { ! (@_ % $_) } 1 .. sqrt @_; my( $cols, $r, $c, @out ) = ( @_/$rows, $rows-1, -1 ); ## We start bottom left... @@ -32,7 +32,7 @@ sub pack_spiral { while( @_ ) { # do until empty $out[ $r ][ ++$c ] = shift foreach 1 .. $cols--; # >> $out[ --$r ][ $c ] = shift foreach 1 .. --$rows; # ^^ - last unless @_; # exit if empty + last unless @_; # exit if empty $out[ $r ][ --$c ] = shift foreach 1 .. $cols--; # << $out[ ++$r ][ $c ] = shift foreach 1 .. --$rows; # vv } |