fork(1) download
copy 
  1. proc t i {
  2.     if {{}ne$i} {
  3.         foreach r {
  4.                 {^(.*){(.*?)}(.*)$}
  5.                 {^(.*)\((.*?)\)(.*)$}
  6.                 {^(.*)<(.*?)>(.*)$}
  7.                 {^(.*)\[(.*?)\](.*)$}
  8.         } {
  9.             if {[regexp $r $i - 1 2 3]} {
  10.                 return [expr {[t $1$3]&[t $2]}]
  11.             }
  12.         }
  13.         append ::m $i
  14.     } else {return 1}
  15.     list 0
  16. }
  17. set m {}
  18. t [gets stdin]
  19. puts $m
Success #stdin #stdout 0.03s 5228KB
comments (?)
stdin
copy 
<<><
stdout
copy 
<<
https://ideone.com/SzYOZV
language:
TCL (tcl 8.6)
created:
10 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!