Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
[99-probs] Fix P08-viklund.pl
Now, that 'our multi' fix is no longer needed, and in fact breaks the
script.
  • Loading branch information
ShimmerFairy committed Jan 16, 2014
1 parent f016b1c commit e5eac13
Showing 1 changed file with 2 additions and 3 deletions.
5 changes: 2 additions & 3 deletions 99-problems/P08-viklund.pl
Expand Up @@ -17,9 +17,8 @@
# [@a,'a'] compress 'a' gives [ @a,'a']
# [@a,'a'] compress 'b' gives [ @a,'a','b']
#
# FIXME "our" is needed under rakudo as of 2010-09-04
our multi infix:<compress> ( $a, $b ) { $a ~~ $b ?? $a !! [ $a, $b ] }
our multi infix:<compress> ( @a, $b ) { @a[*-1] ~~ $b ?? @a !! [ @a, $b ] }
multi infix:<compress> ( $a, $b ) { $a ~~ $b ?? $a !! [ $a, $b ] }
multi infix:<compress> ( @a, $b ) { @a[*-1] ~~ $b ?? @a !! [ @a, $b ] }

# Now all we need to do is split our array up and insert compress.
# given <a a b c c d> we want:
Expand Down

0 comments on commit e5eac13

Please sign in to comment.