Guest User

Untitled

a guest
Jan 21st, 2014
95
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.     }
RAW Paste Data