fork download
copy 
  1. set massage(1) "Added: does this actully works\n"
  2. set massage(2) "does this actully works?"
  3.  
  4. if {![regexp -nocase {^(Added|Changed|Deleted|Fixed|Improved): ((?:[a-z]+ )*[a-z]+)$} $massage(1)]} {
  5.   puts "1: Error"
  6. } else {
  7.   puts "1: Good"
  8. }
  9.  
  10. if {![regexp -nocase {^(Added|Changed|Deleted|Fixed|Improved): ((?:[a-z]+ )*[a-z]+)$} $massage(2)]} {
  11.   puts "2: Error"
  12. } else {
  13.   puts "1: Good"
  14. }
  15.  
Success #stdin #stdout 0s 28224KB
comments (?)
stdin
copy 
test
stdout
copy 
1: Error
2: Error
https://ideone.com/d8689s
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!