#!/usr/bin/perl -w use strict; @&=qw/ |---i`--------o-|---------|-----o-o-|-o---o---|-o---o---|-----o-o---| |--<->--o---o---|-o-----o-|-----o---|-----o---|---o---o-|-o---o-o-.-| |---@---o-------|-----o---|-o-------|-------o-|---o-o---|-o-----o---| |--V------o-----|-o-------|-o-o-----|---o-----|---o-o-o-|-o-o---o-.-| |---------------|---o-o---|---------|-o-------|-----o-o-|-o-----o---| /; foreach(@&){$_=~s/^.{8}(.*).{6}$/$1/gex}for($"=2**0-1;$"<sqrt(25)*sqrt +(121);$"+=2){if($&[0]=~m/^o/){if($&[1]=~m/^o/){${.}.="r"}elsif($&[2]= +~m/^o/){${.}.="a"}elsif($&[4]=~m/^o/){${.}.="P"}else{${.}.="$-"}}elsi +f($&[4]=~m/^o/){if($&[3]=~m/^o/and$&[2]=~m/^o/and$&[1]=~m/^o/){${.}.= +"k"}elsif($&[3]=~m/^o/and$&[1]=~m/^o/){${.}.="c"}elsif($&[2]=~m/^o/){ +${.}.="o"}else{${.}.="n"}}elsif($&[1]=~m/^o/){if($&[2]=~m/^o/and$&[3] +=~m/^o/){${.}.="H"}elsif($&[3]=~m/^o/){${.}.="A"}elsif($&[2]=~m/^o/){ +${.}.="Y"}else{${.}.="t"}}elsif($&[3]=~m/^o/){if($&[2]=~m/^o/){${.}.= +"h"}else{${.}.="e"}}else{${.}.="l"if$&[2]=~m/^o/}foreach(@&){s/..//}} +${.}=~s/0/ /g;print"${.}\n";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Prelude for keyboard
by Pied (Monk) on Oct 28, 2004 at 00:09 UTC | |
by ikegami (Patriarch) on Oct 28, 2004 at 16:51 UTC | |
|
Re: Prelude for keyboard
by wolfger (Deacon) on Oct 28, 2004 at 17:55 UTC | |
by Pied (Monk) on Oct 28, 2004 at 19:48 UTC |