Perl

Collapse
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • Hydra42
    Registered User
    • May 2003
    • 1
    #1

    Perl

    perl -e 'for($i=0;$i<2^64;$i++) { $s1 = reverse(split(//, sprintf("%s", $i))); $s2 = sprintf("%.0f", $i*4); printf("%.0f\n", $i) if($s1 hahahaha $s2); }'
    Tags: None
    Previous template Next
    Working...