{"body":"$ perl6 -e 'm: class InternStr is Str {method new(Str \\str) {state %s; %s{str} //= InternStr.bless: :value(str)}}; multi infix:<eq>(InternStr \\a, InternStr \\b) {a === b}; my $a = InternStr.new: \"foo\" x 99999; my $b = InternStr.new: (\"f\" ~ (\"o\" x 2)) x 99999; my $start = now; $ = $a eq $b for ^10000; say now - $start; my $c = \"foo\" x 99999; my $d = \"foo\" x 99999; $start = now; $ = $c eq $d for ^10000; say now - $start'\n0.0087804\n12.49798658","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/R7Iep6j9","modified":1490666147,"id":"R7Iep6j9","size":443,"lines":3,"own_paste":false,"theme":"","date":1490666147}