Advertisement
Guest User

Untitled

a guest
Jul 27th, 2017
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.30 KB | None | 0 0
  1. set s [gets stdin]
  2. set g [split $s .]
  3. set flag 0
  4. foreach { ss } $g {
  5.     if {![regexp {^[0-9a-z]+$} $ss]} {
  6.         set flag 1
  7.     }
  8. }
  9. if { [string length [lindex $g end] ] < 2 || [string length [lindex $g end] ] > 3 } {
  10.     set flag 1
  11. }
  12. if { $flag == 0 } {
  13.     puts YES
  14. } else  {
  15.     puts NO
  16. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement