# New Ticket Created by Carl Mäsak
# Please include the string: [perl #60796]
# in the subject line of all future correspondence about this issue.
# URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60796
masak rakudo: eval { class A { has $.x } }; say A.new(x=5).x
p6eval rakudo 33156:
# New Ticket Created by Carl Mäsak
# Please include the string: [perl #60780]
# in the subject line of all future correspondence about this issue.
# URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60780
masak rakudo: for 1..5 - $a, $b { say $a, $b }
p6eval rakudo 33137:
# New Ticket Created by Ilya Belikin
# Please include the string: [perl #60806]
# in the subject line of all future correspondence about this issue.
# URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60806
Hi!
Rakudo do topic as perl 5:
my @a = a b c; say @a[-1];
c
but in spec:
Now fixed in r33193:
$ cat 55612
sub times($a,$b) {
$a * $b;
};
sub divide($a,$b) {
$a / $b;
}
sub make_op($op) {
sub($a,$b) { $op($a,$b) }
};
my $t = make_op(times);
say $t(21,2);
my $div = make_op(divide);
say $div(42,2);
$ ./parrot perl6.pbc 55612
42
21
$
Thanks,
Pm
Now fixed in r33193:
$ cat 58392
sub f($l) {
return() if $l = 0;
say entering $l;
for 1..3 {
f($l-1);
say looping in $l;
}
}
f(2);
$ ./parrot perl6.pbc 58392
entering 2
entering 1
looping in 1
looping in 1
looping in 1
looping in 2
entering 1
looping in 1
looping
Now fixed in r33193:
$ cat 59082
my $max = 13;
cl() for 1..2; # print only \n!
cl(); # print 13
sub cl { $max.say };
$ ./parrot perl6.pbc 59082
13
13
13
$
Thanks,
Pm
Removed workaround in r33203, thanks!
Pm
On Thu Nov 20 19:59:03 2008, [EMAIL PROTECTED] wrote:
This code works in Rakudo rev 32970:
grammar GrammarOne { token foo { 'foo' }; }
grammar GrammarTwo { token foobar { GrammarOne::foo 'bar' }; }
'foobar' ~~ GrammarTwo::foobar or die 'failed one-level namespace
grammar';
But
On Wed, Nov 19, 2008 at 07:23:38AM -0800, Carl Mäsak wrote:
Rakudo r32873 cannot parse the Unicode version of Texas quotes («»),
and misunderstands the ASCII-friendly variant ().
$ ./perl6 -e 'say a $b c.perl'
[a, \$b, c]
$ ./perl6 -e 'my $b = foo; say a $b c.perl'
1
$ ./perl6 -e 'my $b =
Is this still an issue?
If so, can we enumerate the exact things we want this ticket to address?
Pm
# New Ticket Created by Moritz Lenz
# Please include the string: [perl #60822]
# in the subject line of all future correspondence about this issue.
# URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60822
Rakudo as of r33193 doesn't implement lexical subroutines; neither 'my
sub ...' is
# New Ticket Created by Moritz Lenz
# Please include the string: [perl #60826]
# in the subject line of all future correspondence about this issue.
# URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60826
Rakudo r33193:
my $x = 5; subset MyInt of Int where { $^num % $x == 0}; my MyInt
# New Ticket Created by Moritz Lenz
# Please include the string: [perl #60828]
# in the subject line of all future correspondence about this issue.
# URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60828
Rakudo r33209:
my @a = 1; say ([EMAIL PROTECTED]).elems; # fine
1
my @a = jan;
On Fri, Sep 26, 2008 at 02:55:36AM -0700, Carl Mäsak wrote:
Rakudo r31409 assumes that all flags that it hasn't heard about are
program files.
$ ./perl6 --help
./perl6
Usage: perl6 [switches] [--] [programfile] [arguments]
[...]
$ ./perl6 --kelp # a kind of seaweed
Error: file cannot be
On Tue, Nov 25, 2008 at 12:36:45PM -0800, Carl Mäsak wrote:
masak rakudo: my $a = 5; $a = [ $a, 6 ]; say $a
p6eval rakudo 33193: OUTPUT[maximum recursion depth exceededcurrent
instr.: 'parrot;List;get_string' pc 2808 (src/gen_builtins.pir:1885)]
masak jnthn: I think you should see this.
15 matches
Mail list logo