Monday, July 6, 2009

Hello World JAPH

This is my first JAPH although it prints hello world! instead. I wrote it for this because I like challenges.

This type of JAPH has probably already been done but it was fun to do.

use warnings;
use strict;
open my $fh,';
$self =~ s/[^a-z !]//g;
print map { substr($self,$_,1) } qw(42 8 62 10 55 26 15 33 9 -46 47 0);

I got Win #44.

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.