diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-08 07:41:39 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-02-08 07:41:39 +0100 |
| commit | 5245b91394c619ff405b3659346088620ccd32aa (patch) | |
| tree | e2b51508de13329fa7122490679bdb3dca7a0e87 | |
| parent | a7600c59246dd81f4975f6dfcb5817978e532756 (diff) | |
| download | perlweeklychallenge-club-5245b91394c619ff405b3659346088620ccd32aa.tar.gz perlweeklychallenge-club-5245b91394c619ff405b3659346088620ccd32aa.tar.bz2 perlweeklychallenge-club-5245b91394c619ff405b3659346088620ccd32aa.zip | |
Get rid of intermediate variable
| -rw-r--r-- | challenge-046/markus-holzer/raku/ch-2.p6 | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/challenge-046/markus-holzer/raku/ch-2.p6 b/challenge-046/markus-holzer/raku/ch-2.p6 index 0923f3e2a5..c804e864ab 100644 --- a/challenge-046/markus-holzer/raku/ch-2.p6 +++ b/challenge-046/markus-holzer/raku/ch-2.p6 @@ -19,10 +19,6 @@ say "Open rooms: ", join ',', ( 1..500 ).grep: *.&is-open; -sub is-open( $room ) -{ - my $sqrt = $room.sqrt; - $sqrt == $sqrt.Int -} +sub is-open( $room ) { ($_ = $room.sqrt) && $_ == $_.Int; } # Open rooms: 1,4,9,16,25,36,49,64,81,100,121,144,169,196,225,256,289,324,361,400,441,484
\ No newline at end of file |