Re: [FWP] Volve

[Steve Lane <sml@zfx.com>]

Kevin Reid wrote:
> 
> @s=(0)x79;@c=split'',q< !_@,#.$%^&*()-+={[}]|\:;"'<>?/>;for(;;){for($d=1
> ;$d<$#s;$d++){$s[$d]+=((($s[$d-1]+$s[$d]+$s[$d+1])/3)-$s[$d])*.1+((rand)
> -.5)}print+map($c[$_%(scalar@c)],@s),$/}

very cool.  it's fun to play with the value you give
rand, what you subtract from it, and what the "mean"
value multiplier (the .1) is.  my favorite so far
is rand(1.6) - 0.8, with 0.4 as the multiplier.  also
play with giving more than one space to @c.
--
Steve Lane <sml@zfx.com>

==== Want to unsubscribe from Fun With Perl?
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org