Problem 5 with the help of shell expansion
Posted to
tcl
by rmax at Wed May 13 14:09:41 GMT 2015
view raw
proc
100s {} {
set
N [
join
{1 2 3 4 5 6 7 8 9} "{+,-,}"]
set
x [
exec
sh -c [
list
echo
$N
]]
foreach
i
$x
{
if
{[
expr
$i
] == 100} {
lappend
result
$i
}
}
return
$result
}
Recent Posts
tcl by oldlaptop
8 days ago
tcl by mookie
14 days ago
tcl by dandyn
21 days ago
tcl by Bradipo
21 days ago
tcl by Bradipo
21 days ago
tcl by oldlaptop
46 days ago
tcl by oldlaptop
46 days ago
tcl by mookie
51 days ago
tcl by mookie
51 days ago
tcl by georgtree
53 days ago
Submit
New paste
Documentation
From Jabber