Does anyone else have a fun way of doing this?
Here's a link to some common ones:
http://www.cpan.org/misc/japh
Here's one of the first ones that I wrote - just past it into a perl program and run it.
- Code: Select all
#!/usr/bin/perl
local$/;$_=<DATA>;s/[\D\n]//g;$.+=2;foreach(/(.{$.})/g){s/100/50/;s/[789]..//;$_/=5;printf"%c",$_;}
__DATA__
420520505 570 50516 05 55
550495505 16059 5485575 16 04
85 16 05 60 555 55 55
70 16 05 75 555 51 05
80 595485570 5051605 604854955
35 505570220 10059 552055519
55 75 16 05 10 57 05
255055 50 50 05 75 16
048 55 40 54 01 60
49548554 054 05055 00 16
05205255 45160 4851605 75 54
04 85 49 55 355 05 57
02 30 10 03 305 85 58
01 605205051 6049555 550050550
01 605555505 05160 500485605
22 01 00 48 55 50 50
016054 54 85 50 05 05
160 52 05 25 57 51
60495555 500 50516 05 75
48560529 01003 6519554 51 60
53 05 85 57 558 01 60
48 55 50 55 558 05 20
50 557016040 0505570 540160520
48 549553550 55701 651007348
95 73 49 61 86 99 76
789838 93 78 43 92 29
778 27 96 68 66 91
Well, it doesn't look that good here, but once you paste it into your perl program, the numbers form the words "JAPH".
Another thing we should do is a perl "Golf" contest - I'll have to write a post about that one...
