Posted to tcl by gerry at Tue Dec 07 14:27:14 GMT 2010view raw

  1. db eval {create table if not exists stu(name text,registered integer,onlist integer)}
  2. db eval {delete from stu}
  3. db eval {insert into stu values('fred',1,0)}
  4. db eval {insert into stu values('fred',0,1)}
  5. db eval {insert into stu values('bob',0,1)}
  6. db eval {insert into stu values('joe',0,0)}
  7. db eval {insert into stu values('sam',0,0)}
  8. db eval {insert into stu values('sam',1,1)}
  9. puts [db eval {select name from stu group by name having max(2*registered+onlist)%2 = 1}]
  10.