Advertisement
Guest User

Untitled

a guest
Jan 21st, 2014
122
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.28 KB | None | 0 0
  1.     # Aceitunas -> www.perlenespanol.com
  2.     use v5.16;
  3.      
  4.     for my $m(1..9)
  5.     {
  6.         for my $a(1..9)
  7.         {
  8.             for my $d(1..9)
  9.             {      
  10.                 say "$m$a$d" if ("$d$d" + "$a$a"+ "$m$m" == "$m$a$d");
  11.             }
  12.         }
  13.     }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement