Posted to tcl by gerry at Tue Dec 07 14:27:14 GMT 2010view pretty
db eval {create table if not exists stu(name text,registered integer,onlist integer)} db eval {delete from stu} db eval {insert into stu values('fred',1,0)} db eval {insert into stu values('fred',0,1)} db eval {insert into stu values('bob',0,1)} db eval {insert into stu values('joe',0,0)} db eval {insert into stu values('sam',0,0)} db eval {insert into stu values('sam',1,1)} puts [db eval {select name from stu group by name having max(2*registered+onlist)%2 = 1}]