[ create a new paste ] login | about

drbaggy

Name:
Email:
Site/Blog:
Location:
Default language:
Favorite languages:
About:

Saved pastes by drbaggy:

Perl, pasted on Dec 18:
1
2
3
4
5
package Set::NoReplace;

sub new { bless {}, shift; }
sub add { $_[0]{$_[1]} = 1 unless exists $_[0]{$_[1]}; return $_[0]; }
sub del { $_[0]{$_[1]} = 0 if     exists $_[0]{$_[1]}; return $_[0]; }
...
view (11 lines, 3 lines of output)
Perl, pasted on Dec 18:
1
2
3
4
5
package Set::NoReplace;

sub new { bless {}, shift; }
sub add { $_[0]{$_[1]} = 1 unless exists $_[0]{$_[1]}; }
sub del { $_[0]{$_[1]} = 0 if     exists $_[0]{$_[1]}; }
...
view (17 lines, 3 lines of output)