develooper Front page | perl.perl6.compiler | Postings from June 2018

[perl #133016] Wrong set difference of Bag and List

From:
Jan-Olof Hendig via RT
Date:
June 23, 2018 19:09
Subject:
[perl #133016] Wrong set difference of Bag and List
Message ID:
rt-4.0.24-18988-1529780993-35.133016-80-0@perl.org
On Thu, 12 Apr 2018 07:21:53 -0700, elizabeth wrote:
> Fixed with 344a64e987 , tests needed
> 
> > On 24 Mar 2018, at 15:01, Aleks-Daniel Jakimenko-Aleksejev via RT
> > <perl6-bugs-followup@perl.org> wrote:
> >
> > FWIW bisectable points to (2017-06-25)
> > https://github.com/rakudo/rakudo/commit/a2133dbc6a00d1f87bb0644c829591144381d736
> >
> > ( before that it was giving bag(a, b) or bag(b, a) )
> >
> > On 2018-03-24 01:43:59, elizabeth wrote:
> >> That does indeed look wrong to me, investigating
> >>
> >>> On 23 Mar 2018, at 15:04, Nick Wellnhofer (via RT) <perl6-bugs-
> >>> followup@perl.org> wrote:
> >>>
> >>> # New Ticket Created by Nick Wellnhofer
> >>> # Please include the string: [perl #133016]
> >>> # in the subject line of all future correspondence about this
> >>> issue.
> >>> # <URL: https://rt.perl.org/Ticket/Display.html?id=133016 >
> >>>
> >>>
> >>> I get an unexpected result when subtracting a List from a Bag with
> >>> the set
> >>> difference operator (-). Subtracting Bags from Lists or Bags works
> >>> fine, as
> >>> does the baggy addition operator:
> >>>
> >>> say bag(<a b>) (+) bag(<a a>); # Bag(a(3), b)
> >>> say bag(<a b>) (+) <a a>; # Bag(a(3), b)
> >>> say <a b> (+) bag(<a a>); # Bag(a(3), b)
> >>>
> >>> say bag(<a a a b>) (-) bag(<a a>); # Bag(a, b)
> >>> say bag(<a a a b>) (-) <a a>; # Bag(a(2), b) seems wrong
> >>> say <a a a b> (-) bag(<a a>); # Bag(a, b)
> >>>
> >>> Only tested online on tio.run
> >>>
> >>> Rakudo version 2017.12 built on MoarVM version 2017.12
> >>> implementing Perl 6.c.
> >>>
> >>> and code-golf.io:
> >>>
> >>> Rakudo version 2018.03 built on MoarVM version 2018.03
> >>> implementing Perl 6.c
> >>>
> >>> Nick

Test added in Roast commit https://github.com/perl6/roast/commit/2288d4a3c543d72f822164dad529066ed055a0aa




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About