Jump to content

Paddy's "Things that cheer you up"


rjw63

Recommended Posts

http://storify.com/Eamonn_Forde/tony-blackburn-s-autobiography-compressed-for-stor

 

this summary of alan part -- I'm sorry Tony Blackburn's autobiography. 

 

read it and not think of alan. I dare you. His comment on the miners in 1973 is my favourite I think, or his solution to racism. Just first class. 

 

Also "I don't know why we called him Simon." :crylaugh:

Edited by Rodders
  • Like 2
Link to comment
Share on other sites

http://storify.com/Eamonn_Forde/tony-blackburn-s-autobiography-compressed-for-stor

 

this summary of alan part -- I'm sorry Tony Blackburn's autobiography. 

 

read it and not think of alan. I dare you. His comment on the miners in 1973 is my favourite I think, or his solution to racism. Just first class. 

 

Also "I don't know why we called him Simon." :crylaugh:

 

Absolutely brilliant  :D

Link to comment
Share on other sites

This bit of Perl (types changed to protect the innocent and not-so-innocent)

 



use feature ':5.10';

my @cats;
my @dogs;

for (map { [ ref $_, $_ ]; } @things) {
  my $arr=undef;
  given ($_->[0]) {
    when ("Cat") {
      $arr=\@cats;
    }
    when ("Dog") {
      $arr=\@dogs;
    }
  }

  push @{$arr}, $_->[1] if defined $arr;
}
It's probably not as efficient as this

 



my @cats;
my @dogs;

{
  my %arrs = (
    Cat => \@cats,
    Dog => \@dogs,
  );

  for (@items) {
    my $arr=$arrs{ref $_};
    push @{$arr}, $_ if defined $arr;    
  } 
}
But that first form is just poetic, almost at the level of the Schwartzian Transform...

(the first is probably more efficient if we're expecting to do a lot more things with Cats than with Dogs... and it leaves some room for future fanciness)

Edited by leviramsey
  • Like 1
Link to comment
Share on other sites

This bit of Perl (types changed to protect the innocent and not-so-innocent)

 


use feature ':5.10';

my @cats;
my @dogs;

for (map { [ ref $_, $_ ]; } @things) {
  my $arr=undef;
  given ($_->[0]) {
    when ("Cat") {
      $arr=\@cats;
    }
    when ("Dog") {
      $arr=\@dogs;
    }
  }

  push @{$arr}, $_->[1];
}
It's probably not as efficient as this

 


my @cats;
my @dogs;

{
  my %arrs = (
    Cat => \@cats,
    Dog => \@dogs,
  );

  for (@items) {
    my $arr=$arrs{ref $_};
    push @{$arr}, $_ if defined $arr;    
  } 
}
But that first form is just poetic, almost at the level of the Schwartzian Transform...

(the first is probably more efficient if we're expecting to do a lot more things with Cats than with Dogs... and it leaves some room for future fanciness)

 

I have absolutely no idea what this means Levi. 

Link to comment
Share on other sites

×
×
  • Create New...

exclamation-mark-man-user-icon-with-png-and-vector-format-227727.png

Ad Blocker Detected

This site is paid for by ad revenue, please disable your ad blocking software for the site.

Â