diff options
| -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 ); } |