diff options
| author | Simon Proctor <simon.proctor@zoopla.co.uk> | 2020-04-06 11:51:14 +0100 |
|---|---|---|
| committer | Simon Proctor <simon.proctor@zoopla.co.uk> | 2020-04-06 11:51:14 +0100 |
| commit | 140dc927e7e233215e703a9d44903ffb1c15e689 (patch) | |
| tree | ebc34ad9573cd97270b97e2997b1fb5077d7ddfa | |
| parent | 256495ff4a2ea4b3c2c7ef1414d89c8de73f248e (diff) | |
| download | perlweeklychallenge-club-140dc927e7e233215e703a9d44903ffb1c15e689.tar.gz perlweeklychallenge-club-140dc927e7e233215e703a9d44903ffb1c15e689.tar.bz2 perlweeklychallenge-club-140dc927e7e233215e703a9d44903ffb1c15e689.zip | |
Minor spacing fix
| -rw-r--r-- | challenge-055/simon-proctor/raku/ch-2.p6 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-055/simon-proctor/raku/ch-2.p6 b/challenge-055/simon-proctor/raku/ch-2.p6 index 086bdfa95d..e5689859a6 100644 --- a/challenge-055/simon-proctor/raku/ch-2.p6 +++ b/challenge-055/simon-proctor/raku/ch-2.p6 @@ -29,11 +29,11 @@ sub unique-perms ( @input ) { } } -multi sub is-wave( 'lte', Int $a, Int $b where { $a <= $b } ) { True } -multi sub is-wave( 'lte', Int $a, Int $b where { $a > $b } ) { False } -multi sub is-wave( 'gte', Int $a, Int $b where { $a >= $b } ) { True } -multi sub is-wave( 'gte', Int $a, Int $b where { $a < $b } ) { False } -multi sub is-wave( 'gte', Int $a, Int $b where { $b > $a }, *@ ) { False } -multi sub is-wave( 'lte', Int $a, Int $b where { $a > $b }, *@ ) { False } +multi sub is-wave( 'lte', Int $a, Int $b where { $a <= $b } ) { True } +multi sub is-wave( 'lte', Int $a, Int $b where { $a > $b } ) { False } +multi sub is-wave( 'gte', Int $a, Int $b where { $a >= $b } ) { True } +multi sub is-wave( 'gte', Int $a, Int $b where { $a < $b } ) { False } +multi sub is-wave( 'gte', Int $a, Int $b where { $b > $a }, *@ ) { False } +multi sub is-wave( 'lte', Int $a, Int $b where { $a > $b }, *@ ) { False } multi sub is-wave( 'gte', Int $a, Int $b where { $a >= $b }, $c, *@r ) { True && is-wave( 'lte', $b, $c, |@r ); } multi sub is-wave( 'lte', Int $a, Int $b where { $a <= $b }, $c, *@r ) { True && is-wave( 'gte', $b, $c, |@r ); } |