Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
go ahead... be a heretic
 
PerlMonks  

Re: Txet Maglning Glof, Ayobndy?

by Caillte (Friar)
on Sep 16, 2003 at 08:45 UTC ( #291764=note: print w/ replies, xml ) Need Help??


in reply to Txet Maglning Glof, Ayobndy?

Chipped a bit off ;)

sub mangle { (@chars) = split '', shift; for($i=1;$i<$#chars-1;$i++){ next if(substr(join('',@chars), $i-1, 4) =~ / /); $buf=$chars[$i],$chars[$i]=$chars[$i+1],$chars[$i+1]=$buf if(rand( +10)>5); } return join '', @chars; }
EDIT: Never go away for 10 minutes before posting on one of these posts... you will always submit and find 50 better versions than what you wrote before you ;)

This page is intentionally left justified.

janitored by ybiC: Replace <pre> tags around code snippet with <code> tags, as per Monastery convention


Comment on Re: Txet Maglning Glof, Ayobndy?
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://291764]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2014-04-17 01:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (437 votes), past polls