Changing every other instance of <B> in a file

[Erwin S. Andreasen]

On 27 Mar 2001 21:44:56 GMT, Marcin 'Qrczak' Kowalczyk wrote:

>Here is an obfuscated version:
>
>import List; main = interact $ concat . snd . mapAccumL f 1 . tails
>f x ('<':'B':'>':_) = (3-x, take x "</"); f x s = (x, take 1 s)

You call that obfuscation? :) You even have superfluous whitespace! I'll give
you obfuscation:

/usr/bin/p*rl -pe's`<b\>`$^X++%2?q{</b>}:$&`gei;' datafile

I managed to use only ^`'{}$%&<>?/;+:*\ -- still lot of punctuation left :)

INTERCAL, anyone?


-- 
=======================================================================
<erwin at andreasen.com>           Herlev, Denmark       Software Designer
<URL:http://www.andreasen.org/>       <*>         LASAT^WEicon Networks
=======================================================================