Skip to content

Instantly share code, notes, and snippets.

View darynnakhuda's full-sized avatar

Daryn Nakhuda darynnakhuda

View GitHub Profile
@darynnakhuda
darynnakhuda / gist:6471364
Created September 6, 2013 23:34
proving I can still write Perl code after all these years (no googling or stack overflowing allowed). Ugly, but it works!
#!/usr/bin/perl
@list1 = (1,2,3,4,5,6);
@list2 = (3,4,5,10);
intersection(\@list1, \@list2);
sub intersection {
my ($a,$b) = @_;
Verifying that +daryn is my openname (Bitcoin username). https://onename.io/daryn