Junctions wrapped in singleton lists

--000000000000ee428905b40550ca
Content-Type: text/plain; charset="UTF-8"

I just tried making a sequence of junctions and found that each one ended
up wrapped in a singleton list somehow:

    > ({ 1 | -1 } ... *)[^3]
    ((any(1, -1)) (any(1, -1)) (any(1, -1)))

Strangely, I can set an ending condition that works like I would expect,
but the sequence still produces single lists.

    > { (1|-1) * ++$ } ... -3
    ((any(1, -1)) (any(2, -2)) (any(3, -3)))

This seems to happen for any kind of junction, not just or-junctions.

Is this a bug, or some legitimate rule I'm unaware of?

--000000000000ee428905b40550ca
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr"><div><div>I just tried making a sequence of junctions and =
found that each one ended up wrapped in a singleton list somehow:<br><br>=
=C2=A0 =C2=A0 &gt; ({ 1 | -1 } ... *)[^3]<br>=C2=A0 =C2=A0 ((any(1, -1)) (a=
ny(1, -1)) (any(1, -1)))<br><br></div>Strangely, I can set an ending condit=
ion that works like I would expect, but the sequence still produces single =
lists.<br><br>=C2=A0 =C2=A0 &gt; { (1|-1) * ++$ } ... -3<br>=C2=A0 =C2=A0 (=
(any(1, -1)) (any(2, -2)) (any(3, -3)))<br></div><div><br></div>This seems =
to happen for any kind of junction, not just or-junctions.<br><div><br></di=
v>Is this a bug, or some legitimate rule I&#39;m unaware of?<br><br></div>

--000000000000ee428905b40550ca--
0
eefacm
11/13/2020 11:23:18 PM
perl.perl6.users 1504 articles. 0 followers. Follow

8 Replies
19 Views

Similar Articles

[PageSpeed] 22

On 2020-11-13 Sean McAfee <eefacm@gmail.com> wrote:
> I just tried making a sequence of junctions and found that each one
> ended up wrapped in a singleton list somehow:
> 
>     > ({ 1 | -1 } ... *)[^3]
>     ((any(1, -1)) (any(1, -1)) (any(1, -1)))

oh, that's weird::

    > ({ 'a' } ... *)[0].^name
    Str
    > ({ any(1,2) } ... *)[0].^name
    List
    > { any(1,2) }().^name
    Junction

-- 
	Dakkar - <Mobilis in mobile>
	GPG public key fingerprint = A071 E618 DD2C 5901 9574
	                             6FE2 40EA 9883 7519 3F88
	                    key id = 0x75193F88
0
dakkar
11/14/2020 12:05:12 PM
--000000000000f3c3c005b42d335a
Content-Type: text/plain; charset="UTF-8"

A few more experiments, for what it's worth. I have no answers.
> { any(1,2) }.^name
Block
> any(1,2).^name
Junction
> (1|-1).^name
Junction
> ((1|-1) ... *)[^3]
((any(1, -1)) (any(2, 0)) (any(3, 1)))
> (1|-1 ... *)[^3]
((any(1, -1)) (any(2, 0)) (any(3, 1)))
> 1|-1 ... 3
((any(1, -1)) (any(2, 0)) 3)

-y


On Sat, Nov 14, 2020 at 4:06 AM Gianni Ceccarelli <dakkar@thenautilus.net>
wrote:

> On 2020-11-13 Sean McAfee <eefacm@gmail.com> wrote:
> > I just tried making a sequence of junctions and found that each one
> > ended up wrapped in a singleton list somehow:
> >
> >     > ({ 1 | -1 } ... *)[^3]
> >     ((any(1, -1)) (any(1, -1)) (any(1, -1)))
>
> oh, that's weird::
>
>     > ({ 'a' } ... *)[0].^name
>     Str
>     > ({ any(1,2) } ... *)[0].^name
>     List
>     > { any(1,2) }().^name
>     Junction
>
> --
>         Dakkar - <Mobilis in mobile>
>         GPG public key fingerprint = A071 E618 DD2C 5901 9574
>                                      6FE2 40EA 9883 7519 3F88
>                             key id = 0x75193F88
>

--000000000000f3c3c005b42d335a
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr"><div dir=3D"ltr">A few more experiments, for what it&#39;s=
 worth. I have no answers.<br>&gt; { any(1,2) }.^name =C2=A0 =C2=A0<br>Bloc=
k<br>&gt; any(1,2).^name<br>Junction<br>&gt; (1|-1).^name<br>Junction<br>&g=
t; ((1|-1) ... *)[^3]<br>((any(1, -1)) (any(2, 0)) (any(3, 1)))<br>&gt; (1|=
-1 ... *)[^3]<br>((any(1, -1)) (any(2, 0)) (any(3, 1)))<br>&gt; 1|-1 ... 3<=
br>((any(1, -1)) (any(2, 0)) 3)<br><div><div><span style=3D"font-variant-li=
gatures:no-common-ligatures"><br></span></div><div><div dir=3D"ltr" class=
=3D"gmail_signature">-y<br></div></div><br></div></div></div><br><div class=
=3D"gmail_quote"><div dir=3D"ltr" class=3D"gmail_attr">On Sat, Nov 14, 2020=
 at 4:06 AM Gianni Ceccarelli &lt;<a href=3D"mailto:dakkar@thenautilus.net"=
>dakkar@thenautilus.net</a>&gt; wrote:<br></div><blockquote class=3D"gmail_=
quote" style=3D"margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-=
style:solid;border-left-color:rgb(204,204,204);padding-left:1ex">On 2020-11=
-13 Sean McAfee &lt;<a href=3D"mailto:eefacm@gmail.com" target=3D"_blank">e=
efacm@gmail.com</a>&gt; wrote:<br>
&gt; I just tried making a sequence of junctions and found that each one<br=
>
&gt; ended up wrapped in a singleton list somehow:<br>
&gt; <br>
&gt;=C2=A0 =C2=A0 =C2=A0&gt; ({ 1 | -1 } ... *)[^3]<br>
&gt;=C2=A0 =C2=A0 =C2=A0((any(1, -1)) (any(1, -1)) (any(1, -1)))<br>
<br>
oh, that&#39;s weird::<br>
<br>
=C2=A0 =C2=A0 &gt; ({ &#39;a&#39; } ... *)[0].^name<br>
=C2=A0 =C2=A0 Str<br>
=C2=A0 =C2=A0 &gt; ({ any(1,2) } ... *)[0].^name<br>
=C2=A0 =C2=A0 List<br>
=C2=A0 =C2=A0 &gt; { any(1,2) }().^name<br>
=C2=A0 =C2=A0 Junction<br>
<br>
-- <br>
=C2=A0 =C2=A0 =C2=A0 =C2=A0 Dakkar - &lt;Mobilis in mobile&gt;<br>
=C2=A0 =C2=A0 =C2=A0 =C2=A0 GPG public key fingerprint =3D A071 E618 DD2C 5=
901 9574<br>
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A06FE2 40EA 9883 7=
519 3F88<br>
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 key id =3D 0x75193F88<br>
</blockquote></div>

--000000000000f3c3c005b42d335a--
0
not
11/15/2020 10:58:30 PM
say $*PERL.version; # v6.d
say $*PERL.compiler.version; # v2018.12
say ({ 1 | -1 } ... *)[^3]; # (any(1, -1) any(1, -1) any(1, -1))

say $*PERL.version; # v6.d
say $*PERL.compiler.version; # v2020.07
say ({ 1 | -1 } ... *)[^3]; # ((any(1, -1)) (any(1, -1)) (any(1, -1)))
0
ralphdjmellor
11/17/2020 12:37:56 AM
--0000000000002faaa505b444dc6a
Content-Type: text/plain; charset="UTF-8"

Open a bug report at https://github.com/rakudo/rakudo/issues/ showing the
change in behavior

-y


On Mon, Nov 16, 2020 at 4:39 PM Ralph Mellor <ralphdjmellor@gmail.com>
wrote:

> say $*PERL.version; # v6.d
> say $*PERL.compiler.version; # v2018.12
> say ({ 1 | -1 } ... *)[^3]; # (any(1, -1) any(1, -1) any(1, -1))
>
> say $*PERL.version; # v6.d
> say $*PERL.compiler.version; # v2020.07
> say ({ 1 | -1 } ... *)[^3]; # ((any(1, -1)) (any(1, -1)) (any(1, -1)))
>

--0000000000002faaa505b444dc6a
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr"><div dir=3D"ltr">Open a bug report at <a href=3D"https://g=
ithub.com/rakudo/rakudo/issues/">https://github.com/rakudo/rakudo/issues/</=
a>=C2=A0showing the change in behavior</div><div dir=3D"ltr"><br clear=3D"a=
ll"><div><div dir=3D"ltr" class=3D"gmail_signature">-y<br></div></div><br><=
/div></div><br><div class=3D"gmail_quote"><div dir=3D"ltr" class=3D"gmail_a=
ttr">On Mon, Nov 16, 2020 at 4:39 PM Ralph Mellor &lt;<a href=3D"mailto:ral=
phdjmellor@gmail.com">ralphdjmellor@gmail.com</a>&gt; wrote:<br></div><bloc=
kquote class=3D"gmail_quote" style=3D"margin:0px 0px 0px 0.8ex;border-left-=
width:1px;border-left-style:solid;border-left-color:rgb(204,204,204);paddin=
g-left:1ex">say $*PERL.version; # v6.d<br>
say $*PERL.compiler.version; # v2018.12<br>
say ({ 1 | -1 } ... *)[^3]; # (any(1, -1) any(1, -1) any(1, -1))<br>
<br>
say $*PERL.version; # v6.d<br>
say $*PERL.compiler.version; # v2020.07<br>
say ({ 1 | -1 } ... *)[^3]; # ((any(1, -1)) (any(1, -1)) (any(1, -1)))<br>
</blockquote></div>

--0000000000002faaa505b444dc6a--
0
not
11/17/2020 3:11:57 AM
https://github.com/rakudo/rakudo/issues/4039

On Tue, Nov 17, 2020 at 3:12 AM yary <not.com@gmail.com> wrote:
>
> Open a bug report at https://github.com/rakudo/rakudo/issues/ showing the change in behavior
>
> -y
>
>
> On Mon, Nov 16, 2020 at 4:39 PM Ralph Mellor <ralphdjmellor@gmail.com> wrote:
>>
>> say $*PERL.version; # v6.d
>> say $*PERL.compiler.version; # v2018.12
>> say ({ 1 | -1 } ... *)[^3]; # (any(1, -1) any(1, -1) any(1, -1))
>>
>> say $*PERL.version; # v6.d
>> say $*PERL.compiler.version; # v2020.07
>> say ({ 1 | -1 } ... *)[^3]; # ((any(1, -1)) (any(1, -1)) (any(1, -1)))
0
ralphdjmellor
11/17/2020 11:29:59 AM
--00000000000027831d05b46533ce
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

user@mbook:~$ raku
Welcome to =F0=9D=90=91=F0=9D=90=9A=F0=9D=90=A4=F0=9D=90=AE=F0=9D=90=9D=F0=
=9D=90=A8=E2=84=A2 v2020.10.
Implementing the =F0=9D=90=91=F0=9D=90=9A=F0=9D=90=A4=F0=9D=90=AE=E2=84=A2 =
programming language v6.d.
Built on MoarVM version 2020.10.

You may want to `zef install Readline` or `zef install Linenoise` or use
rlwrap for a line editor

To exit type 'exit' or '^D'
> say $*PERL.version;
v6.d
> say $*PERL.compiler.version;
v2020.10
> say ({ 1 | -1 } ... *)[^3];
((any(1, -1)) (any(1, -1)) (any(1, -1)))
> say ({ 1 | -1} ... *)[^3].flat
(any(1, -1) any(1, -1) any(1, -1))
>

..flat works. Not clear to me why it changed though. --B.

On Tue, Nov 17, 2020 at 3:30 AM Ralph Mellor <ralphdjmellor@gmail.com>
wrote:

> https://github.com/rakudo/rakudo/issues/4039
>
> On Tue, Nov 17, 2020 at 3:12 AM yary <not.com@gmail.com> wrote:
> >
> > Open a bug report at https://github.com/rakudo/rakudo/issues/ showing
> the change in behavior
> >
> > -y
> >
> >
> > On Mon, Nov 16, 2020 at 4:39 PM Ralph Mellor <ralphdjmellor@gmail.com>
> wrote:
> >>
> >> say $*PERL.version; # v6.d
> >> say $*PERL.compiler.version; # v2018.12
> >> say ({ 1 | -1 } ... *)[^3]; # (any(1, -1) any(1, -1) any(1, -1))
> >>
> >> say $*PERL.version; # v6.d
> >> say $*PERL.compiler.version; # v2020.07
> >> say ({ 1 | -1 } ... *)[^3]; # ((any(1, -1)) (any(1, -1)) (any(1, -1)))
>

--00000000000027831d05b46533ce
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr">user@mbook:~$ raku<br>Welcome to =F0=9D=90=91=F0=9D=90=9A=
=F0=9D=90=A4=F0=9D=90=AE=F0=9D=90=9D=F0=9D=90=A8=E2=84=A2 v2020.10.<br>Impl=
ementing the =F0=9D=90=91=F0=9D=90=9A=F0=9D=90=A4=F0=9D=90=AE=E2=84=A2 prog=
ramming language v6.d.<br>Built on MoarVM version 2020.10.<br><br>You may w=
ant to `zef install Readline` or `zef install Linenoise` or use rlwrap for =
a line editor<br><br>To exit type &#39;exit&#39; or &#39;^D&#39;<br>&gt; sa=
y $*PERL.version;<br>v6.d<br>&gt; say $*PERL.compiler.version;<br>v2020.10<=
br>&gt; say ({ 1 | -1 } ... *)[^3]; <br>((any(1, -1)) (any(1, -1)) (any(1, =
-1)))<br>&gt; say ({ 1 | -1} ... *)[^3].flat<br>(any(1, -1) any(1, -1) any(=
1, -1))<br><div>&gt;</div><div><br></div><div>.flat works. Not clear to me =
why it changed though. --B.<br></div></div><br><div class=3D"gmail_quote"><=
div dir=3D"ltr" class=3D"gmail_attr">On Tue, Nov 17, 2020 at 3:30 AM Ralph =
Mellor &lt;<a href=3D"mailto:ralphdjmellor@gmail.com">ralphdjmellor@gmail.c=
om</a>&gt; wrote:<br></div><blockquote class=3D"gmail_quote" style=3D"margi=
n:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex=
"><a href=3D"https://github.com/rakudo/rakudo/issues/4039" rel=3D"noreferre=
r" target=3D"_blank">https://github.com/rakudo/rakudo/issues/4039</a><br>
<br>
On Tue, Nov 17, 2020 at 3:12 AM yary &lt;<a href=3D"mailto:not.com@gmail.co=
m" target=3D"_blank">not.com@gmail.com</a>&gt; wrote:<br>
&gt;<br>
&gt; Open a bug report at <a href=3D"https://github.com/rakudo/rakudo/issue=
s/" rel=3D"noreferrer" target=3D"_blank">https://github.com/rakudo/rakudo/i=
ssues/</a> showing the change in behavior<br>
&gt;<br>
&gt; -y<br>
&gt;<br>
&gt;<br>
&gt; On Mon, Nov 16, 2020 at 4:39 PM Ralph Mellor &lt;<a href=3D"mailto:ral=
phdjmellor@gmail.com" target=3D"_blank">ralphdjmellor@gmail.com</a>&gt; wro=
te:<br>
&gt;&gt;<br>
&gt;&gt; say $*PERL.version; # v6.d<br>
&gt;&gt; say $*PERL.compiler.version; # v2018.12<br>
&gt;&gt; say ({ 1 | -1 } ... *)[^3]; # (any(1, -1) any(1, -1) any(1, -1))<b=
r>
&gt;&gt;<br>
&gt;&gt; say $*PERL.version; # v6.d<br>
&gt;&gt; say $*PERL.compiler.version; # v2020.07<br>
&gt;&gt; say ({ 1 | -1 } ... *)[^3]; # ((any(1, -1)) (any(1, -1)) (any(1, -=
1)))<br>
</blockquote></div>

--00000000000027831d05b46533ce--
0
perl6
11/18/2020 5:46:30 PM
This change of behaviour turned out to be a regression.  This was fixed =
reported in https://github.com/rakudo/rakudo/issues/4039 and fixed with =
https://github.com/rakudo/rakudo/commit/3e10cc6f8a

> On 18 Nov 2020, at 18:46, William Michels via perl6-users =
<perl6-users@perl.org> wrote:
>=20
> user@mbook:~$ raku
> Welcome to =F0=9D=90=91=F0=9D=90=9A=F0=9D=90=A4=F0=9D=90=AE=F0=9D=90=9D=F0=
=9D=90=A8=E2=84=A2 v2020.10.
> Implementing the =F0=9D=90=91=F0=9D=90=9A=F0=9D=90=A4=F0=9D=90=AE=E2=84=A2=
 programming language v6.d.
> Built on MoarVM version 2020.10.
>=20
> You may want to `zef install Readline` or `zef install Linenoise` or =
use rlwrap for a line editor
>=20
> To exit type 'exit' or '^D'
> > say $*PERL.version;
> v6.d
> > say $*PERL.compiler.version;
> v2020.10
> > say ({ 1 | -1 } ... *)[^3];=20
> ((any(1, -1)) (any(1, -1)) (any(1, -1)))
> > say ({ 1 | -1} ... *)[^3].flat
> (any(1, -1) any(1, -1) any(1, -1))
> >
>=20
> .flat works. Not clear to me why it changed though. --B.
>=20
> On Tue, Nov 17, 2020 at 3:30 AM Ralph Mellor <ralphdjmellor@gmail.com> =
wrote:
> https://github.com/rakudo/rakudo/issues/4039
>=20
> On Tue, Nov 17, 2020 at 3:12 AM yary <not.com@gmail.com> wrote:
> >
> > Open a bug report at https://github.com/rakudo/rakudo/issues/ =
showing the change in behavior
> >
> > -y
> >
> >
> > On Mon, Nov 16, 2020 at 4:39 PM Ralph Mellor =
<ralphdjmellor@gmail.com> wrote:
> >>
> >> say $*PERL.version; # v6.d
> >> say $*PERL.compiler.version; # v2018.12
> >> say ({ 1 | -1 } ... *)[^3]; # (any(1, -1) any(1, -1) any(1, -1))
> >>
> >> say $*PERL.version; # v6.d
> >> say $*PERL.compiler.version; # v2020.07
> >> say ({ 1 | -1 } ... *)[^3]; # ((any(1, -1)) (any(1, -1)) (any(1, =
-1)))
0
liz
11/18/2020 5:50:38 PM
--0000000000005f2e9b05b46710d5
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

Thanks Liz!

On Wed, Nov 18, 2020 at 9:50 AM Elizabeth Mattijsen <liz@dijkmat.nl> wrote:

> This change of behaviour turned out to be a regression.  This was fixed
> reported in https://github.com/rakudo/rakudo/issues/4039 and fixed with
> https://github.com/rakudo/rakudo/commit/3e10cc6f8a
>
> > On 18 Nov 2020, at 18:46, William Michels via perl6-users <
> perl6-users@perl.org> wrote:
> >
> > user@mbook:~$ raku
> > Welcome to =F0=9D=90=91=F0=9D=90=9A=F0=9D=90=A4=F0=9D=90=AE=F0=9D=90=9D=
=F0=9D=90=A8=E2=84=A2 v2020.10.
> > Implementing the =F0=9D=90=91=F0=9D=90=9A=F0=9D=90=A4=F0=9D=90=AE=E2=84=
=A2 programming language v6.d.
> > Built on MoarVM version 2020.10.
> >
> > You may want to `zef install Readline` or `zef install Linenoise` or us=
e
> rlwrap for a line editor
> >
> > To exit type 'exit' or '^D'
> > > say $*PERL.version;
> > v6.d
> > > say $*PERL.compiler.version;
> > v2020.10
> > > say ({ 1 | -1 } ... *)[^3];
> > ((any(1, -1)) (any(1, -1)) (any(1, -1)))
> > > say ({ 1 | -1} ... *)[^3].flat
> > (any(1, -1) any(1, -1) any(1, -1))
> > >
> >
> > .flat works. Not clear to me why it changed though. --B.
> >
> > On Tue, Nov 17, 2020 at 3:30 AM Ralph Mellor <ralphdjmellor@gmail.com>
> wrote:
> > https://github.com/rakudo/rakudo/issues/4039
> >
> > On Tue, Nov 17, 2020 at 3:12 AM yary <not.com@gmail.com> wrote:
> > >
> > > Open a bug report at https://github.com/rakudo/rakudo/issues/ showing
> the change in behavior
> > >
> > > -y
> > >
> > >
> > > On Mon, Nov 16, 2020 at 4:39 PM Ralph Mellor <ralphdjmellor@gmail.com=
>
> wrote:
> > >>
> > >> say $*PERL.version; # v6.d
> > >> say $*PERL.compiler.version; # v2018.12
> > >> say ({ 1 | -1 } ... *)[^3]; # (any(1, -1) any(1, -1) any(1, -1))
> > >>
> > >> say $*PERL.version; # v6.d
> > >> say $*PERL.compiler.version; # v2020.07
> > >> say ({ 1 | -1 } ... *)[^3]; # ((any(1, -1)) (any(1, -1)) (any(1, -1)=
))
>

--0000000000005f2e9b05b46710d5
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr">Thanks Liz!<br></div><br><div class=3D"gmail_quote"><div d=
ir=3D"ltr" class=3D"gmail_attr">On Wed, Nov 18, 2020 at 9:50 AM Elizabeth M=
attijsen &lt;<a href=3D"mailto:liz@dijkmat.nl">liz@dijkmat.nl</a>&gt; wrote=
:<br></div><blockquote class=3D"gmail_quote" style=3D"margin:0px 0px 0px 0.=
8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">This change of=
 behaviour turned out to be a regression.=C2=A0 This was fixed reported in =
<a href=3D"https://github.com/rakudo/rakudo/issues/4039" rel=3D"noreferrer"=
 target=3D"_blank">https://github.com/rakudo/rakudo/issues/4039</a> and fix=
ed with <a href=3D"https://github.com/rakudo/rakudo/commit/3e10cc6f8a" rel=
=3D"noreferrer" target=3D"_blank">https://github.com/rakudo/rakudo/commit/3=
e10cc6f8a</a><br>
<br>
&gt; On 18 Nov 2020, at 18:46, William Michels via perl6-users &lt;<a href=
=3D"mailto:perl6-users@perl.org" target=3D"_blank">perl6-users@perl.org</a>=
&gt; wrote:<br>
&gt; <br>
&gt; user@mbook:~$ raku<br>
&gt; Welcome to =F0=9D=90=91=F0=9D=90=9A=F0=9D=90=A4=F0=9D=90=AE=F0=9D=90=
=9D=F0=9D=90=A8=E2=84=A2 v2020.10.<br>
&gt; Implementing the =F0=9D=90=91=F0=9D=90=9A=F0=9D=90=A4=F0=9D=90=AE=E2=
=84=A2 programming language v6.d.<br>
&gt; Built on MoarVM version 2020.10.<br>
&gt; <br>
&gt; You may want to `zef install Readline` or `zef install Linenoise` or u=
se rlwrap for a line editor<br>
&gt; <br>
&gt; To exit type &#39;exit&#39; or &#39;^D&#39;<br>
&gt; &gt; say $*PERL.version;<br>
&gt; v6.d<br>
&gt; &gt; say $*PERL.compiler.version;<br>
&gt; v2020.10<br>
&gt; &gt; say ({ 1 | -1 } ... *)[^3]; <br>
&gt; ((any(1, -1)) (any(1, -1)) (any(1, -1)))<br>
&gt; &gt; say ({ 1 | -1} ... *)[^3].flat<br>
&gt; (any(1, -1) any(1, -1) any(1, -1))<br>
&gt; &gt;<br>
&gt; <br>
&gt; .flat works. Not clear to me why it changed though. --B.<br>
&gt; <br>
&gt; On Tue, Nov 17, 2020 at 3:30 AM Ralph Mellor &lt;<a href=3D"mailto:ral=
phdjmellor@gmail.com" target=3D"_blank">ralphdjmellor@gmail.com</a>&gt; wro=
te:<br>
&gt; <a href=3D"https://github.com/rakudo/rakudo/issues/4039" rel=3D"norefe=
rrer" target=3D"_blank">https://github.com/rakudo/rakudo/issues/4039</a><br=
>
&gt; <br>
&gt; On Tue, Nov 17, 2020 at 3:12 AM yary &lt;<a href=3D"mailto:not.com@gma=
il.com" target=3D"_blank">not.com@gmail.com</a>&gt; wrote:<br>
&gt; &gt;<br>
&gt; &gt; Open a bug report at <a href=3D"https://github.com/rakudo/rakudo/=
issues/" rel=3D"noreferrer" target=3D"_blank">https://github.com/rakudo/rak=
udo/issues/</a> showing the change in behavior<br>
&gt; &gt;<br>
&gt; &gt; -y<br>
&gt; &gt;<br>
&gt; &gt;<br>
&gt; &gt; On Mon, Nov 16, 2020 at 4:39 PM Ralph Mellor &lt;<a href=3D"mailt=
o:ralphdjmellor@gmail.com" target=3D"_blank">ralphdjmellor@gmail.com</a>&gt=
; wrote:<br>
&gt; &gt;&gt;<br>
&gt; &gt;&gt; say $*PERL.version; # v6.d<br>
&gt; &gt;&gt; say $*PERL.compiler.version; # v2018.12<br>
&gt; &gt;&gt; say ({ 1 | -1 } ... *)[^3]; # (any(1, -1) any(1, -1) any(1, -=
1))<br>
&gt; &gt;&gt;<br>
&gt; &gt;&gt; say $*PERL.version; # v6.d<br>
&gt; &gt;&gt; say $*PERL.compiler.version; # v2020.07<br>
&gt; &gt;&gt; say ({ 1 | -1 } ... *)[^3]; # ((any(1, -1)) (any(1, -1)) (any=
(1, -1)))<br>
</blockquote></div>

--0000000000005f2e9b05b46710d5--
0
perl6
11/18/2020 7:59:56 PM
Reply: