Posted By

cmm7825 on 06/19/10


Tagged


Versions (?)

Problem 17


 / Published in: Perl
 

  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. my $sum = 0;
  7.  
  8. for my $i (1..1000){
  9. if($i == 1000){
  10. $sum += 11;}
  11. if($i =~ m/\d*(\d)\d\d$/){
  12. if($1 == 1 || $1 == 2 || $1 == 6) { $sum += 13; }
  13. if($1 == 4 || $1 == 5 || $1 == 9) { $sum += 14; }
  14. if($1 == 7 || $1 == 8 || $1 == 3) { $sum += 15; }
  15. }
  16. if($i =~ m/^\d00$/){
  17. $sum -= 3;
  18. }
  19. if($i =~ m/\d*(\d)\d$/){
  20. if($1 == 2 || $1 == 3 || $1 == 8 || $1 == 9) { $sum += 6; }
  21. if($1 == 4 || $1 == 5 || $1 == 6) { $sum += 5; }
  22. if($1 == 7) { $sum += 7; }
  23. }
  24. if($i =~ m/\d*1(\d)$/){
  25. if($1 == 0) { $sum += 3; }
  26. if($1 == 1 || $1 == 2) { $sum += 6; }
  27. if($1 == 5 || $1 == 6) { $sum += 7; }
  28. if($1 == 3 || $1 == 4 || $1 == 8 || $1 == 9) { $sum += 8; }
  29. if($1 == 7) { $sum += 9; }
  30. }
  31. elsif($i =~ m/\d*(\d)$/){
  32. if($1 == 1 || $1 == 2 || $1 == 6) { $sum += 3; }
  33. if($1 == 4 || $1 == 5 || $1 == 9) { $sum += 4; }
  34. if($1 == 7 || $1 == 8 || $1 == 3) { $sum += 5; }
  35. }
  36. }
  37.  
  38. print "$sum\n";

Report this snippet  

You need to login to post a comment.