for ( 1 .. 700000 ){ is_vamp( $_ ) and print $_,$/ } sub is_vamp { $_ = shift; my$l = (length( $_ ))/2; /(\d{$l})(\d{$l})/ or return; ((reverse$1)*$2 == $_) ? 1 : 0 } __END__ 1260 1435 1530 6880 102510 104260 105210 108135 152608 156240 182650 629680
In reply to Re: Vampire Numbers Revisited
by sh1tn
in thread Vampire Numbers Revisited
by Limbic~Region
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |