n=$teller
woordmax=10
opgave=$empty
bewerking=bewerking1.proc

aantal_records=!recordcnt nivo/lijst1
kies=!randint 1,$aantal_records
subject=!record $kies of nivo/lijst1
onderwerp=!item 1 of $subject
onderwerp=!replace internal @ by , in $onderwerp

k=!randint 4,5
!if $k=4
    i=5
    goede_groep=!item 2 of $onderwerp            
    foute_groep=!item 1 of $onderwerp            
    goede_woorden=!item 3 of $subject
!else
    i=4
    goede_woorden=!item 2 of $subject
    goede_groep=!item 1 of $onderwerp    
    foute_groep=!item 2 of $onderwerp
!endif

subject$k=!item $k of $subject
subject$i=!item $i of $subject

subject$k=!replace internal @ by , in $(subject$k)
subject$i=!replace internal @ by , in $(subject$i)

subject$k=!shuffle $(subject$k)
subject$i=!shuffle $(subject$i)


aantal_k=!itemcnt $(subject$k)
aantal_i=!itemcnt $(subject$i)

aantal_dingetjes=!randint 3,5
anderding=!randint 1,$aantal_dingetjes

!for p=1 to $aantal_dingetjes
    ding=!item $p of $(subject$k)
    !if $p != $anderding
        opgave=!append line <th><input type=checkbox name=ANT$n value="$ding">$ding</th> to $opgave  
    !else
	ding=!item 1 of $(subject$i)
	opgave=!append line <th><input type=checkbox name=ANT$n value="$ding">$ding</th> to $opgave
	GOED$n=$ding 
	antwoord$n=Het is dus <em>"$ding"</em> <br> Want de anderen horen bij de groep " $foute_groep " <br>\
	en <em>" $ding "</em> hoort bij de groep " $goede_groep "
    !endif    
!next p



opgave$n=<table cellspacing="15" cellpadding="15">$opgave</table>
antwoord$n=<table cellspacing="10">$(antwoord$n)</table>
somtekst$n=In de onderstaande rij zit een vreemde eend.\
<br>Kun jij bedenken welk <em>item</em> hier <b>niet</b> thuis hoort?<br>\
en waarom?




!if $HINT=1
    hint=nee, geen hints
!endif
nivo_title=Zoek de vreemde eend<br><small>heeft niet veel met wiskunde te maken...</small>
