# Parit mixte II

!distribute items $wims_read_parm into slib_n, slib_type, slib_formula
slib_1=!item 4 to -1 of $wims_read_parm

!default slib_static_random=!randint 1,6
slib_data=(x-1)*sLx[x],1,sont tous les deux impairs\
	x*(sLx[x]+1),1,sont tous les deux pairs\
	(x-1)*sLx[x],0,ne sont pas tous impairs\
	x*(sLx[x]+1),0,ne sont pas tous pairs\
	x+sLx[x],1,sont de la mme parit\
	x+sLx[x],0,sont de parit diffrente

slib_data=!line $slib_static_random of $slib_data
!distribute item $slib_data into slib_fm, slib_par, slib_txt

!if $slib_static_random=1
 slib_p=impair
!else
 slib_p=pair
!endif

!exec pari sLx=[$slib_1]
slib_x=!exec pari vector($slib_n,x,($slib_fm)%2)
slib_x=!positionof item $slib_par in $slib_x
!if $slib_formula != $empty
 slib_list=!item $slib_x of $slib_1
 slib_sum=!sum $slib_formula for x in $slib_list
!else
 slib_sum=
!endif

slib_tq=!randitem tels que, pour qui, o, pour lesquels
slib_ind=!randitem l'ensemble des indices, les indices
slib_pour=!randitem sur,pour
slib_et=!randitem var_i et var_l[var_i], var_l[var_i] et var_i

slib_2=$slib_pour $slib_ind var_i $slib_tq $slib_et $slib_txt

slib_out=$slib_x\
$slib_2\
$slib_sum

