Re2: strip tease

Perhaps a slower one then?

1 while s/((.*){10})t/$1/i;
[download]

-Blake

Comment on Re2: strip tease Download Code

Replies are listed 'Best First'.
Re3: strip tease by Solo (Deacon) on Sep 11, 2002 at 23:26 UTC
Whilst others debate the aesthetics of performance--I, being of simpler ilk, believe that two or three strip teases are better than one. `my @variety = ( 0, # because sometimes you lose sub{s/t//ig}, sub{tr/tT//d}, sub{s/((.*){10})t/$1/i}, ); while (my $spice = int(rand($#variety + 1))) { $variety[$spice]->(my $life); }` [download] -- May the Source be with you. You said you wanted to be around when I made a mistake; well, this could be it, sweetheart.	[reply] [d/l]

Replies are listed 'Best First'.

Re3: strip tease
by Solo (Deacon) on Sep 11, 2002 at 23:26 UTC

my @variety = ( 0, # because sometimes you lose
                sub{s/t//ig},
                sub{tr/tT//d},
                sub{s/((.*){10})t/$1/i},
              );

while (my $spice = int(rand($#variety + 1))) {
  $variety[$spice]->(my $life);
}
[download]

--
May the Source be with you.
You said you wanted to be around when I made a mistake; well, this could be it, sweetheart.

[reply]
[d/l]