root/tags/lgt2308/library/set.lgt

:- object(set,
    implements(setp),
    extends(compound)).

    :- info([
        version is 1.0,
        author is 'Paulo Moura',
        date is 2000/7/24,
        comment is 'Set predicates implemented using ordered lists. Uses ==/2 for element comparison and standard term ordering.']).

    delete([], _, []).
    delete([Head| Tail], Element, Remaining) :-
        compare(Order, Head, Element),
        delete(Order, Head, Tail, Element, Remaining).

    delete(=, _, Tail, _, Tail).
    delete(<, Head, Tail, Element, [Head| Tail2]) :-
        delete(Tail, Element, Tail2).
    delete(>, _, Tail, _, Tail).

    disjoint([], _) :- !.
    disjoint(_, []) :- !.
    disjoint([Head1| Tail1], [Head2| Tail2]) :-
        compare(Order, Head1, Head2),
        disjoint(Order, Head1, Tail1, Head2, Tail2).

    disjoint(<, _, Tail1, Head2, Tail2) :-
        disjoint(Tail1, [Head2| Tail2]).
    disjoint(>, Head1, Tail1, _, Tail2) :-
        disjoint([Head1| Tail1], Tail2).

    equal(Set1, Set2) :-
        Set1 == Set2.

    empty(Set) :-
        Set == [].

    insert([], Element, [Element]).
    insert([Head| Tail], Element, Set) :-
        compare(Order, Head, Element),
        insert(Order, Head, Tail, Element, Set).

    insert(<, Head, Tail, Element, [Head| Set]) :-
        insert(Tail, Element, Set).
    insert(=, Head, Tail, _, [Head| Tail]).
    insert(>, Head, Tail, Element, [Element, Head| Tail]).

    insert_all([], Set, Set).
    insert_all([Head| Tail], Set1, Set3) :-
        insert(Set1, Head, Set2),
        insert_all(Tail, Set2, Set3).

    intersect([Head1| Tail1], [Head2| Tail2]) :-
        compare(Order, Head1, Head2),
        intersect(Order, Head1, Tail1, Head2, Tail2).

    intersect(=, _, _, _, _).
    intersect(<, _, Tail1, Head2, Tail2) :-
        intersect(Tail1, [Head2| Tail2]).
    intersect(>, Head1, Tail1, _, Tail2) :-
        intersect([Head1| Tail1], Tail2).

    intersection(_, [], []) :- !.
    intersection([], _, []) :- !.

    intersection([Head1| Tail1], [Head2| Tail2], Intersection) :-
        compare(Order, Head1, Head2),
        intersection(Order, Head1, Tail1, Head2, Tail2, Intersection).

    intersection(=, Head,  Tail1, _,     Tail2, [Head| Intersection]) :-
        intersection(Tail1, Tail2, Intersection).
    intersection(<, _,     Tail1, Head2, Tail2, Intersection) :-
        intersection(Tail1, [Head2| Tail2], Intersection).
    intersection(>, Head1, Tail1, _,     Tail2, Intersection) :-
        intersection([Head1|Tail1], Tail2, Intersection).

    length(Set, Length) :-
        length(Set, 0, Length).

    length([], Length, Length).
    length([_| Set], Acc, Length) :-
        Acc2 is Acc + 1,
        length(Set, Acc2, Length).

    member(Element, Set) :-
        (   var(Element) ->
            member_var(Element, Set)
        ;   member_nonvar(Element, Set)
        ).

    member_var(Element, [Element| _]).
    member_var(Element, [_| Set]) :-
        member_var(Element, Set).

    member_nonvar(Element, [Head| Tail]):-
        compare(Order, Element, Head),
        member_nonvar(Order, Element, Tail).

    member_nonvar(=, _, _).
    member_nonvar(>, Element, [Head| Tail]) :-
        compare(Order, Element, Head),
        member_nonvar(Order, Element, Tail).

    new([]).

    powerset(Set, PowerSet):-
        reverse(Set, RSet),
        powerset_1(RSet, [[]], PowerSet).

    powerset_1([], PowerSet, PowerSet).
    powerset_1([X| Xs], Yss0, Yss):-
        powerset_2(Yss0, X, Yss1),
        powerset_1(Xs, Yss1, Yss).

    powerset_2([], _, []).
    powerset_2([Zs| Zss], X, [Zs, [X| Zs]| Yss]):-
        powerset_2(Zss, X, Yss).

    reverse(List, Reversed) :-
        reverse(List, [], Reversed).

    reverse([], Reversed, Reversed).
    reverse([Head| Tail], List, Reversed) :-
        reverse(Tail, [Head| List], Reversed).

    select(Head, [Head| Tail], Tail).
    select(Head, [Head2| Tail], [Head2| Tail2]) :-
        select(Head, Tail, Tail2).

    subset([], _) :- !.
    subset([Head1| Tail1], [Head2| Tail2]) :-
        compare(Order, Head1, Head2),
        subset(Order, Head1, Tail1, Head2, Tail2).

    subset(=, _, Tail1, _, Tail2) :-
        subset(Tail1, Tail2).
    subset(>, Head1, Tail1, _, Tail2) :-
        subset([Head1| Tail1], Tail2).

    subtract(Set, [], Set) :- !.
    subtract([], _, []) :- !.

    subtract([Head1| Tail1], [Head2| Tail2], Difference) :-
        compare(Order, Head1, Head2),
        subtract(Order, Head1, Tail1, Head2, Tail2, Difference).

    subtract(=, _, Tail1, _, Tail2, Difference) :-
        subtract(Tail1, Tail2, Difference).
    subtract(<, Head1, Tail1, Head2, Tail2, [Head1| Difference]) :-
        subtract(Tail1, [Head2| Tail2], Difference).
    subtract(>, Head1, Tail1, _, Tail2, Difference) :-
        subtract([Head1| Tail1], Tail2, Difference).

    symdiff(Set, [], Set) :- !.
    symdiff([], Set, Set) :- !.
    symdiff([Head1| Tail1], [Head2| Tail2], Difference) :-
        compare(Order, Head1, Head2),
        symdiff(Order, Head1, Tail1, Head2, Tail2, Difference).

    symdiff(=, _, Tail1, _, Tail2, Difference) :-
        symdiff(Tail1, Tail2, Difference).
    symdiff(<, Head1, Tail1, Head2, Tail2, [Head1| Difference]) :-
        symdiff(Tail1, [Head2| Tail2], Difference).
    symdiff(>, Head1, Tail1, Head2, Tail2, [Head2| Difference]) :-
        symdiff([Head1| Tail1], Tail2, Difference).

    union(Set, [], Set) :- !.
    union([], Set, Set) :- !.
    union([Head1| Tail1], [Head2| Tail2], Union) :-
        compare(Order, Head1, Head2),
        union(Order, Head1, Tail1, Head2, Tail2, Union).

    union(=, Head,  Tail1, _, Tail2, [Head| Union]) :-
        union(Tail1, Tail2, Union).
    union(<, Head1, Tail1, Head2, Tail2, [Head1| Union]) :-
        union(Tail1, [Head2| Tail2], Union).
    union(>, Head1, Tail1, Head2, Tail2, [Head2| Union]) :-
        union([Head1| Tail1], Tail2, Union).

    valid(Set) :-
        nonvar(Set),
        valid2(Set).

    valid2([]) :-
        !.
    valid2([_]) :-
        !.
    valid2([Element1, Element2| Set]) :-
        Element1 @< Element2,
        valid2([Element2| Set]).

:- end_object.