$n=<>; @a=glob<>; for$i(1..2*$n-4){ $l=$i<$n?0:$i-$n+1; $r=$i-1>>1; for$p($l..$r){ $q=$i-$p; if($a[$p]>$a[$q]){ @a[$p,$q]=@a[$q,$p] } } } $,=$";print@a