fork download 
  1. set data [read stdin]
  2. ### For an actual file, you'd use something like:
  3. # set fin [open "file.txt" r]
  4. # set data [read $fin]
  5. # close $fin
  6.  
  7. set values [list]
  8.  
  9. foreach line [split $data \n] {
  10. 	lappend values [lindex [split $line " "] 0]
  11. }
  12.  
  13. puts "The average is: [expr {[::tcl::mathop::+ {*}$values]/double([llength $values])}]"
Success #stdin #stdout 0s 27960KB
comments (?)
stdin 
1 2 3
4 5 6
5 9 7
3 2 8
stdout 
The average is: 3.25
https://ideone.com/Kwqdu1
language:
TCL (tcl 8.6)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!