Hat ja nix mit perl an sich zu tun:
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"><html>
<head>
<script>
function P(s,l)
{P.p=[];
function R(p,z)
{if(++z>l){P.p.push(p); return};
for(i in S=s.split(''))R(p+S[i],z);
};
R('',0);
with(document){write(P.p.toString().replace(/,/g,'<br>')); close()};
};
</script>
</head>
<body onload="P('(|:-)',5)">
</body>
</html>[/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">In perl geht's halt ein bissel fixer.
gruß
matho
kleiner Zusatz:
so geht es natürlich schneller:
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"><html>
<head>
<script>
function P(str,trin,trout,len)
{P={p:[], q:str.split(trin)};
function R(r,z)
{if(++z>len)return P.p.push(r);
for(i in P.q)R(r+P.q[i]+trout, z);
};
x=new Date().getTime();
R('',0);
y=new Date().getTime();
with(document){write(y-x+' milliseconds<p></p>', Math.pow(P.q.length,len), '<p></p>', P.p.toString().replace(/,/g,'<br>')); close()};
};
</script>
</head>
<body onload="P('dornrößchen war ein schönes kind',' ',' ',5)">
</body>
</html>[/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">Recht intressant sind die browser-Unterschiede die
Zeitmessung betreffend ( insbesondre IE versus NN7)
<small>[ 23-11-2002, 12:58: Beitrag editiert von: matho ]</small>