Tcl - gregorymorrison/euler1 GitHub Wiki

I really haven't spent much time with Tcl. This language, which debuted in 1988, strikes me as being quite accessible - it took me only about an hour to get the following version of Euler1 working.  I'm interested in exploring this language further.

#!/usr/bin/tclsh
# Euler1 in Tcl

proc euler1 {n} {
    set sum 0; set i 0 

    while {$i < $n} {
        if {$i%3==0 || $i%5==0} {
            set sum [expr $sum+$i]
        }
        incr i
    }

    return $sum
}

puts [euler1 1000]

Tcl is easy to run - just call your script:

$ euler1.tcl
233168
$