Programming-Idioms

(def x #{:a :b :c :d :e})

(disj x :e)

(disj x :k)

x.erase(e);

x.remove(e);

integer,allocatable::x(:)
integer::e=6
x=[2,4,6,8,10]
!remove 6
x=pack(x,x/=e)

delete(x, e)

delete(x, e)

let letters = new Set(["a","b","c"]);
letters.delete("b");
console.log([...letters].join(', '));

x.remove(e);

(defun rmv (elem lst) 
 (if (null lst) nil
   (if (equal elem (car lst)) 
     (cdr lst)
     (cons (car lst) (rmv elem (cdr lst))))) )

(setf x (rmv e x ))

x := x - [e];

Exclude(x,e);

my %set;
my @list = ( 'a' .. 'f' );
$set{$_} = 1 for @list;

delete $set{'c'};	# delete specific key

use v5.20;
delete %set{'a','e'}	# delete hash slice

my $set = Set::Scalar->new( 'a' .. 'f' );

print "Contents of set:\n";
print $set;

$set->delete('b','e');

print "\nAfter removing elements b and e:\n";
print $set;

@x = grep $e ne $_, @x;

x.remove(e)

x.delete(e)

x.remove(e);

x.take(e)