C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print (map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}} [download]
In reply to Re^2: The glass is... by Andrew_Levenson in thread The glass is... by Minimiscience