Select Code to Download

_6_174_5_
1_83_56__
...
5_______2
__72_69__
_4_5_8_7_

#!/usr/bin/perl -w

...
    (combien(@mag)!=combien    (@{elim2(@{elim1(@mag)
    })}) ){@mag =@{+elim2 (    @{ elim1 (@mag) } ) };
               printg(@mag);   print"\n";}