fork download
copy 
  1. set s {{ abc1 } 1
  2. { cde1 } 101
  3. { fgh1 } 1
  4. { ijk1 } 2}
  5. set re {^{[^{}]*}\s*(\d+)[\r\n]+{[^{}]*}\s*\d+[\r\n]+{[^{}]*}\s*(\d+)}
  6. regexp $re $s m g1 g2
  7. set res [expr $g1 + $g2]
  8. puts $res
  9.  
  10.  
Success #stdin #stdout 0s 15856KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2
https://ideone.com/OAJCZu
language:
TCL (tcl 8.6)
created:
7 years ago
visibility:
secret

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!