(%Ju=qw(J P u l s e t r))and(%st=qw(t , A H e a h c o e n k r r));@A=sort keys %Ju;@n=sort keys %st;sub o{@A[0,3,1,2]}sub t{@n[0,3,4,6,2,1,5]}sub h{@Ju{@A}}sub e{@st{@n}}print join' ',(join'',o),(join'',t),(join'',h),(join'',e)
=cut
--Brent Dax
There is no sig.
|
|---|