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
$