diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-03-29 10:38:02 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-03-29 10:38:02 +0200 |
| commit | 35507a71342c0e6d248f7108ecb83302ff64f832 (patch) | |
| tree | a1b57b70d7d568344b577e8b54363975373e76ab | |
| parent | 79253858bea7500a230d0c3a3ce026878d3e3ddf (diff) | |
| download | perlweeklychallenge-club-35507a71342c0e6d248f7108ecb83302ff64f832.tar.gz perlweeklychallenge-club-35507a71342c0e6d248f7108ecb83302ff64f832.tar.bz2 perlweeklychallenge-club-35507a71342c0e6d248f7108ecb83302ff64f832.zip | |
Shorter task 2
| -rw-r--r-- | challenge-106/luca-ferrari/raku/ch-2.p6 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-106/luca-ferrari/raku/ch-2.p6 b/challenge-106/luca-ferrari/raku/ch-2.p6 index 7b24eafa55..47253ada3c 100644 --- a/challenge-106/luca-ferrari/raku/ch-2.p6 +++ b/challenge-106/luca-ferrari/raku/ch-2.p6 @@ -3,7 +3,6 @@ sub MAIN( Int $D, Int $N where { $N != 0 } ) { my @values = ( $D / $N ).base-repeating( 10 ); - print @values[ 0 ]; - print '(%s)'.sprintf: @values[ 1 ] if ( @values[ 1 ] ); - put ''; + @values[ 0 ].say and exit if ( ! @values[ 1 ] ); + '%s(%s)'.sprintf( @values ).say; } |