%!TEX pdflatex

\documentclass{article}
\usepackage{tikz}
\usepackage{randomlist}
\usepackage{pgffor}
\usepackage{color}
\usepackage{xfp}
\usepackage{siunitx}
\usepackage{xstring}

\begin{document}

\edef\NBBOULESROUGES{\fpeval{randint(1,7)}} % Génération du nombre de boules rouges (entre 1 et 7)
\edef\NBBOULESVERTES{\fpeval{randint(1,9)}} % Génération du nombre de boules vertes (entre 1 et 9)
\edef\NBBOULESBLEUES{\fpeval{randint(1,6)}} % Génération du nombre de boules bleues (entre 1 et 6)
\edef\NBBOULESJAUNES{\fpeval{randint(1,8)}} % Génération du nombre de boules jaunes (entre 1 et 8)
\edef\NBBOULESORANGES{\fpeval{randint(1,10)}} % Génération du nombre de boules oranges (entre 1 et 10)
\edef\NBBOULESTOTAL{\fpeval{\NBBOULESROUGES+\NBBOULESVERTES+\NBBOULESBLEUES+\NBBOULESJAUNES+\NBBOULESORANGES}}
\edef\dernierindice{\fpeval{\NBBOULESTOTAL-1}}
\edef\nbcolonnes{6}
\edef\nblignes{\fpeval{trunc(\dernierindice/\nbcolonnes,0)}}


%COULEURS
\NewList{couleurs}
\SetList{couleurs}{rouge/R,verte/V,bleue/B,jaune/J,orange/O}
\GetRandomItem{couleurs}{choixcouleur}

%URNES
\NewList{urne}
\newcount\nbr
\nbr=\NBBOULESROUGES
\loop
	\InsertRandomItem{urne}{red}
	\advance \nbr -1
	\ifnum \nbr>0
\repeat
\newcount\nbv
\nbv=\NBBOULESVERTES
\loop
	\InsertRandomItem{urne}{green}
	\advance \nbv -1
	\ifnum \nbv>0
\repeat
\newcount\nbb
\nbb=\NBBOULESBLEUES
\loop
	\InsertRandomItem{urne}{blue}
	\advance \nbb -1
	\ifnum \nbb>0
\repeat
\newcount\nbj
\nbj=\NBBOULESJAUNES
\loop
	\InsertRandomItem{urne}{yellow}
	\advance \nbj -1
	\ifnum \nbj>0
\repeat
\newcount\nbo
\nbo=\NBBOULESORANGES
\loop
	\InsertRandomItem{urne}{orange}
	\advance \nbo -1
	\ifnum \nbo>0
\repeat
%\ShowList{urne}

Dans une urne on a \num{\NBBOULESROUGES} boules rouges, \num{\NBBOULESVERTES} boules vertes, \num{\NBBOULESBLEUES} boules bleues, \num{\NBBOULESJAUNES} boules jaunes et \num{\NBBOULESORANGES} boules oranges.
Quelle est la probabilité $P(\StrBehind{\choixcouleur}{/})$ de tirer une boule de couleur \StrBefore{\choixcouleur}{/} ?

\medskip

\begin{center}
	\begin{tikzpicture}[scale=0.5]
	\foreach \i in {0,1,...,\dernierindice}{%
		\edef\q{\fpeval{trunc(\i/\nbcolonnes,0)}}
		\edef\r{\fpeval{trunc(\i-\nbcolonnes*\q,0)}}
		\draw[fill={\urne[\i]}] (\r,\q) circle[radius=0.45] ;%
	}
	\draw[thick] (-0.6,-0.6) rectangle ({\nbcolonnes-0.4},{\nblignes+0.6}) ;
\end{tikzpicture}
\end{center}

\textbf{Vérif des calculs :}

%Pour vérifier les valeurs
\NBBOULESROUGES{} R + \NBBOULESVERTES{} V + \NBBOULESBLEUES{} B + \NBBOULESJAUNES{} J + \NBBOULESORANGES{} O.

Donc \NBBOULESTOTAL{} boules au total.

Et \inteval{\nblignes+1} lignes.

\end{document}