RosettaCodeData/Task/Array-length/Tcl/array-length-3.tcl
2025-08-11 18:05:26 -07:00

5 lines
104 B
Tcl

set paths [split "/sbin:/bin:/usr/bin:/usr/local/bin:$home/bin" ":"]
foreach p $paths {
puts "$p"
}