On Wed, 30 Jan 2013 07:17:38 -0800, masak wrote:
> rn: role F[$n] { method x { callsame; callsame until $.v % $n }
> }; class S { has $.v is rw = 1; method x { ++$.v } }; my $s = S.new; for
> ^3 { $s.x; say $s.v; $s = $s but F[$s.v] }
> niecza v24-18-gaf64300: OUTPUT«235»
> ..rakudo
On Wed, 30 Jan 2013 07:17:38 -0800, masak wrote:
> rn: role F[$n] { method x { callsame; callsame until $.v % $n }
> }; class S { has $.v is rw = 1; method x { ++$.v } }; my $s = S.new; for
> ^3 { $s.x; say $s.v; $s = $s but F[$s.v] }
> niecza v24-18-gaf64300: OUTPUT«235»
> ..rakudo
# New Ticket Created by Carl Mäsak
# Please include the string: [perl #116595]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=116595
masak hm, not sure I can golf this significantly.
masak does the following
masak rn: role F[$n] { method x { callsame; callsame until $.v % $n }
}; class S { has $.v is rw = 1; method x { ++$.v } }; my $s = S.new; for
^3 { $s.x; say $s.v; $s = $s but F[$s.v] }
p6eval niecza v24-18-gaf64300: OUTPUT«235»
p6eval ..rakudo b3fc32: OUTPUT«(timeout)23»
masak jnthn: this