Help for this page

Select Code to Download


  1. or download this
    perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' [num]
  2. or download this
    perl -le '$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,$_^=q,$\^-]!,,print'