# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #100868]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=100868 >


<sjohnson> A tutor who tooted the flute
<sjohnson> Tried to tutor two tooters to toot
<sjohnson> Said the two to the tutor
<sjohnson> "Is it tougher to toot
<sjohnson> Or to tutor two tooters to toot?"
<tadzik> woot
<sjohnson> heh
<masak> nom: $_ = 'toot'; s/$/er/; .say; s/oo(.)e/u $0 o/; .say
<p6eval> nom 1c2c2d: OUTPUT«tooter␤tu  or␤»
<masak> is that a known/submitted bug?
<[Coke]> when you submit that, you can golf it down to just the 2nd regexp
<masak> of course :)
<masak> nom: $_ = 'a'; s/(.)/$0/; .say
<p6eval> nom 1c2c2d: OUTPUT«␤»
* masak submits rakudobug
<masak> sjohnson: your poem just found us a rakudobug! :)
<sjohnson> nice!

Reply via email to