Mostly because I couldn't figure out a short way of doing it, but I aim to please, so...
use strict;use warnings;
$|=1,$.=23,$"='[*][*]=[=|=]=(=|=|=)<|:|>|<|',$"=~s:\||\[|\]|\(|\)::g;{
$:=' 'x$.,$^=' 'x(23-2*$.),($.<9)?($~=~s:\w=\s: =O:):($~='O= '),($.>0)
?($.--):($.=23),($"=~s:><:>-:)?():($"=~s:>-:><:),$_="\r".$^.$".$:.$~,
select $,,$,,$,,0.1;print&&redo}
#**=======<:>< =O
I must admit, I like the effect better. | [reply]
[d/l] |
Wonderful! Thanks ++
CountZero "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law
| [reply] |
Brother ktross;
Greetings in the way of the monks of the kloster. I pondered long on the dwellings of $^ before inspiration visited my humble cell. Good job!
I humbly ask your pardon as I edit, fold, spindle and mutilate your excellent code.
$.=23,$|=1,s,,s//`[*][*]=[=|=]=(=|=|=)<|:|>|<|,,s:s//|/
|\||\[|\]|\(|\)::g;{$:=' 'x$.,$^=' 'x(23-2*$.),$.<9?$~=~
s:\w=\s: =O::($~='O= '),$.=$.?$.-1:23,s:><:>~:?1:s:>~:><:,print"\r",
$^.$_.$:.$~;select$,,$,,$,,2e-1;redo}
Your humble servant;
starbolin
s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s
|-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,,$|=1,select$,,$,,$,,1e-1;print;redo}
| [reply]
[d/l] |