Help for this page

Select Code to Download


  1. or download this
      DB<124> $a=42; $a =~ s/(.)(.)/(sort { $a <=> $b } $1,$2)[0]/e ;$a
 => 2
...

  DB<108> $a=4215; $a =~ s/(.)(.)/(sort { $a <=> $b } "$1","$2")[0]/eg
+ ;$a
 => 21
  2. or download this
    $ perl -v

This is perl 5, version 14, subversion 2 (v5.14.2) built for i686-linu
+x-gnu-thread-multi-64int