-- einige nicht ganz ernst gemeinte 
-- Lotto "Analysen"

set feedback on
set format auto
set colsep ' '

-- An welchen Wochentagen wird gezogen?
-- Ergebnis ist so unerwartet, dass wir gegen mehrere
-- Quellen geprueft haben..... 
select weekday(datum) wk,min(datum),max(datum), count(*) cnt
       from ziehung
       group by wk
       order by cnt;
       
-- Fuer alle die Zahlen in Folge Tippen:
-- Wann lagen die groesste und die kleinste Zahl in einem Block von
-- max. 12 Zahlen
select max(zahl) - min(zahl) diff, min(zahl), max(zahl),datum, weekday(datum) wk
       from treffer
       where typ is null
       group by datum,wk
       having diff <= 12
       order by datum;

-- Fuer alle Geburtstags-Tipper:
-- wenn Sie die Zahlen 32-49 nicht spielen,
-- in wievielen Ausspielungen haetten Sie dann bisher 6-richtige 
-- haben koennen?

select datum, weekday(datum) wk
       from treffer
       where typ is null
       group by datum,wk
       having max(zahl) <= 31
       order by datum;

-- der schnelle Test mit 6-Zahlen
-- wie oft haetten Sie seit 1955 gewonnen?

select datum,count(*) richtige
       from treffer 
       where typ is null 
       and zahl in 
       ( 1,9,11,20,43,47) -- 6 Zahlen eintragen
       group by datum
       having richtige >=4     -- Anzeigen ab 4 richtige 
       order by richtige;