[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[FWP] japh

my @v = (
   174119,
   232670,
   432820,
   572990,
   599105,
  4101112,
  5101112,
  6101112,
  5108340,
  3110109,
  2115118,
  3116106,
);
print eval(join'.',map{/.(.*)/;1_/1000}sort@v)^"\c@\cB"x@v;
print ",\n";



-- 
John Porter

What would Gabrielle do?


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe