diff options
| author | Simon Proctor <simon.proctor@zpg.co.uk> | 2020-01-20 16:18:01 +0000 |
|---|---|---|
| committer | Simon Proctor <simon.proctor@zpg.co.uk> | 2020-01-20 16:18:01 +0000 |
| commit | 13ec7fec2d9674a41bd17bbc597eb394d3b73c55 (patch) | |
| tree | 595b2c5fabb20fdc65d3e471fd0640c70de93234 /challenge-044/simon-proctor | |
| parent | bed16c13a8849ab1a9dc5934ccb72f90182c480d (diff) | |
| download | perlweeklychallenge-club-13ec7fec2d9674a41bd17bbc597eb394d3b73c55.tar.gz perlweeklychallenge-club-13ec7fec2d9674a41bd17bbc597eb394d3b73c55.tar.bz2 perlweeklychallenge-club-13ec7fec2d9674a41bd17bbc597eb394d3b73c55.zip | |
Change ordering of apply ops to get valid output
Diffstat (limited to 'challenge-044/simon-proctor')
| -rw-r--r-- | challenge-044/simon-proctor/raku/ch-1.p6 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-044/simon-proctor/raku/ch-1.p6 b/challenge-044/simon-proctor/raku/ch-1.p6 index 5ec6641727..d99c7836bd 100644 --- a/challenge-044/simon-proctor/raku/ch-1.p6 +++ b/challenge-044/simon-proctor/raku/ch-1.p6 @@ -3,7 +3,7 @@ use v6.d; multi sub concat( \a, \b ) { a ~ b } -multi sub concat( \a, @b ) { ( a ~ @b[0], @b[1..*] ) } +multi sub concat( @a, \b ) { ( @a[0..*-2], @a[*-1] ~ b ) } my %ops-map = ( '+' => &infix:<+>, @@ -36,7 +36,7 @@ multi sub apply-ops( @list where *.elems == 2, @ops ) { } multi sub apply-ops( @list, @ops ) { - return @ops[0](@list[0],apply-ops( @list[1..*], @ops[1..*] ) ); + return @ops[*-1](apply-ops( @list[0..*-2], @ops[0..*-2] ), @list[*-1] ); } sub display( @nums, @ops ) { |