!!analyse de la rponse  la question supplementaire

Une rponse : 
dessin_cor=
L2ord=!sort numeric item $L2
L1ord=!item $wims_sort_order  of $L1
h=!item 1 of $wims_sort_order
I=$(N$h)
dessin_cor=!append line disk $(abscisse$h), $(ordonnee$h), 8, $color2 to $dessin_cor
v=!item 1 of $L2ord
!for i=2 to $n
	u=!item $i of $L1ord
	!if $u>$v
		h=!item $i of $wims_sort_order
		I=!append item $(N$h) to $I
		v=!item $i of $L2ord
		dessin_cor=!append line disk $(abscisse$h), $(ordonnee$h), 8, $color2 to $dessin_cor
	!endif
!next i
I=!sort item $I

cnt_sol=!itemcnt $I
alphabet=A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
Analyse de la reponse

test=
liste=!words2items $liste
liste= !nonempty item $liste
cnt_rep=!itemcnt $liste
err=$[$cnt_sol-$cnt_rep]
liste=!sort item $liste
cnt=!itemcnt $liste
Liste1=
Liste2=
!for i in $liste
	u=!positionof item $i in $alphabet
	dessin_aretes=!append line disk $(abscisse$u), $(ordonnee$u), 8, $color5 to $dessin_aretes
	Liste1=!append item $(a$u) to $Liste1
	Liste2=!append item $(b$u) to $Liste2
!next i
Liste2ord=!sort numeric item $Liste2
Liste1ord=!item $wims_sort_order  of $Liste1
v=!item 1 of $Liste2ord
!for i=2 to $cnt
	u=!item $i of $Liste1ord
		!if $u<=$v
			a=!item $i of $wims_sort_order
			a=!item $a of $liste
			b=!item $[$i-1] of $wims_sort_order
			b=!item $b of $liste
			test=$a et $b
			!break
		!else
			v=!item $i of $Liste2ord
		!endif
!next i

dessin_ar=
!for i in $liste
	u=!positionof item $i in $alphabet
	dessin_ar=!append line disk $(abscisse$u), $(ordonnee$u), 8, $color5 to $dessin_ar
!next i

!if $err=0 and $test=$empty
	dessin_correct=!append line $dessin_ar to $dessin_correct
!else
	dessin_correct=!append line $dessin_cor to $dessin_correct
	dessin_aretes=!append line $dessin_ar to $dessin_aretes
!endif

!if $test=$empty
	module_score= $[round(10*(3*$module_score + max(0,10-$err))/4)/10]
!else
	module_score= $[min(10,round(30*$module_score/4)/10)]
!endif
