Re: Reversed .= operator

Just create the operator:

> multi sub infix:<=.> (Str $w1 is rw, Str $w2) { $w1 = $w2 ~ $w1;}
sub infix:<=.> (Str $w1 is rw, Str $w2) { #`(Sub+{Precedence}|14963240
+0) ... }
>
> my $c = "bar";
bar
> $c =. "foo";
foobar
> say $c;
foobar
[download]

Oh, but I forgot to say, this is Perl 6, of course.

Sorry about it, I couldn't resist. ;-)

Comment on Re: Reversed .= operator Select or Download Code

Replies are listed 'Best First'.
Re^2: Reversed .= operator by raiph (Deacon) on May 03, 2016 at 06:26 UTC
I prefer your solution but for interest here's another using the arg swap metaop: `my $foo = 'foo'; $foo ~= 'bar'; say $foo; # 'foobar' $foo [R~]= 'bar'; say $foo; # 'barfoobar'` [download] »ö« ^{. o O ( "the celebrity tell-all of the Perl-6 cult?" )}	[reply] [d/l]
Re^3: Reversed .= operator by Laurent_R (Canon) on May 03, 2016 at 20:58 UTC
Thanks, raiph, I did not know about that reverse argument operator.	[reply]
Re^2: Reversed .= operator by 1nickt (Canon) on Apr 30, 2016 at 15:50 UTC
So in other words, "Perl6" doesn't have it either. The way forward always starts with a minimal test.	[reply]
Re^3: Reversed .= operator by Laurent_R (Canon) on Apr 30, 2016 at 16:16 UTC
Nope, but it does not really need it either: it takes just one code line to define it. Take a look at Perl 6 without prejudice, I'm sure you'll love it.	[reply]
Re^4: Reversed .= operator by BrowserUk (Patriarch) on Apr 30, 2016 at 19:27 UTC
Take a look at Perl 6 without prejudice, I'm sure you'll love it. Do you use it for $work? If so, what type of work? With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :) In the absence of evidence, opinion is indistinguishable from prejudice.	[reply]
Re^5: Reversed .= operator by Laurent_R (Canon) on Apr 30, 2016 at 21:24 UTC