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.




#!/usr/bin/perl
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