Kickstart said something about s$x$y$g in the CB,
and palindromes quickly became the topic (I guess my talking
about y$x$y$ didn't help).
Anyway, here is my first try at a piece of code you can run
through perl or tac|rev|perl... It's not
symmetrical, and it does different (and rather poor) stuff each
time. Call it proof of concept... and enjoy.
;;sub a;q;;;$_=a
$;=$y=x;$x=y;;;;
y$x,$y$;qq tnirp
;,mit;print,q;}{
_ bus;;sub a{$_[
0].$/}s q;/q\/q;
P.S.: This seems to have B::Deparse enter an
infinite loop if you try to
deparse the script.
In reply to tac|rev|perl
by BooK
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|