Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: A real challenge

by c-era (Curate)
on Jul 16, 2001 at 19:22 UTC ( #97041=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    # Our decode string
    my @decode = (
            print chr($char);