Thread: Perl
View Single Post
Old 05-28-2003, 07:20 PM  
Hydra42
Registered User
 
Join Date: May 2003
Posts: 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); }'
Hydra42 is offline   Share thread on Digg Share thread on Twitter Share thread on Reddit Share thread on Facebook Reply With Quote