Logo

Programming-Idioms

  • Fortran
  • Perl

Idiom #34 Create a set of objects

Declare and initialize a set x containing unique objects of type T.

use Moops;
use Set::Object qw();

class T {}
class Set::Object::T extends Set::Object {
    method BUILDARGS(T @items) { return {data => \@items}; }
    method insert(T @items) { $self->next::method(@items); }
}
my $x = Set::Object::T->new(T->new, T->new, T->new);
#include <unordered_set>
std::unordered_set<T, hasher, eq> x;

Using a custom hasher and eq (equality checking function)
New implementation...
< > ⌨
programming-idioms.org 
class T {}
class Set::Object::T extends Set::Object {
    method BUILDARGS(T @items) { return {data => \@items}; }
    method insert(T @items) { $self->next::method(@items); }
}
my $x = Set::Object::T->new(T->new, T->new, T->new);
std::unordered_set<T, hasher, eq> x;
std::unordered_set<T> x;
HashSet<T> x = new HashSet<T>();
auto x = redBlackTree!T;
var x = new Set<T>();
x := make(map[T]bool)
x := make(map[T]struct{})
x = empty :: Set T

let x = new Set();
Set<T> x = new HashSet<T>();
Set<T> x = new HashSet<T>();
x.add(a);
x.add(b);
Set<T> x = of(a, b, c);
class T(object):
    pass

x = set(T())
class T:
   ...

s = set(T() for _ in range(x))
class T:
    def __init__(self, x):
        self.x = x
    def __hash__(self):
        return hash(self.x)
    def __eq__(self, t):
        return self.x == t.x
x = {T('abc'), T(123), T(lambda: ...)}
x = Set.new
let x: HashSet<T> = HashSet::new();
val x = Set[T]()