# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #120380]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=120380 >
<pippo> Hello. Does anybody tried this on rakudo-jvm? my $file = "";
for ^20000 {$file ~= "$_;"}; say $file ~~ /(\d+) +% ';'/;
<masak> pippo: ...probably not?
<FROGGS> no, not exactly this line... why?
<pippo> It takes too much long to execute!
<FROGGS> pippo: how too muh long?
<pippo> Really I do not know. It blows me out before it finishes.
Niecza does it in few seconds.
<masak> pippo: that sounds like a bug, then.
<pippo> I do not know. I arrived at this trying to understand why
slurping a long file about 20'000 lines takes so long (lines slurp
"myfile").
<masak> pippo: it would be interesting to see timings of this for <p5
niecza r-p r-j>
<masak> on your machine.
<pippo> I'll do...
<pippo> masak: Niecza: realI0m7.866s userI0m13.510s sysI0m0.135s (but
changed 20'000 to 10'000 in the for loop)
<masak> pippo: nice.
<pippo> masak: rakudo-jvm I am still waiting after 4 minutes
<masak> pippo: ok, submitting rakudobug.
Niecza's 7 s result feels reasonable. 4 minutes doesn't feel
reasonable. This ticket can be closed when things feel reasonable. :)
