Wednesday, April 13, 2011

Project Euler - Problem 6 - Tcl

#The sum of the squares of the first ten natural numbers is,
#1^2 + 2^2 + ... + 10^2 = 385
#
#The square of the sum of the first ten natural numbers is,
#(1 + 2 + ... + 10)^2 = 55^2 = 3025
#
#Hence the difference between the sum of the squares of the first ten natural numbers and the square of the sum is 3025 - 385 = 2640.
#
#Find the difference between the sum of the squares of the first one hundred natural numbers and the square of the sum.
proc problem6 {} {
 set sum_of_squares 0
 set squares_of_sum 0

 for { set idx 1 } { $idx <= 100 } {incr idx} {
  set sum_of_squares [expr $sum_of_squares + ($idx * $idx)]
  set squares_of_sum [expr $squares_of_sum + $idx ]
 }

 set squares_of_sum [expr $squares_of_sum*$squares_of_sum]

 puts "Solution-6: [expr $squares_of_sum - $sum_of_squares]"
}

#Solution-6: 25164150

No comments:

Post a Comment