Uncompatible Systems

Perl Poetry

It's about time! I wrote some Perl poetry. I'm rather proud of it. Copy and paste, it'll execute.

#!/usr/bin/perl

my $years = rand 110;

foreach($years) {
tell about.
do potential($years);
}

sub potential {
  use strict;
  my $time = $_[0];
  if ( $time > 0 ) {
    sort $time * potential($time - 1);
  } else {
    die;
  }
}

Written on 2009-10-14 00:05:24 UTC

Back

I have an honorary degree in software engineering from the university of the Internet. I propose to a different friend on facebook every monday. I'm single on weekends, which is when I hack on things like web programming, sound synthesis and databases. I hack on drop.io when I'm married.

Chat?

Photos

Music

RSS Feed

New post