Files
TD-R/TD/Exo6.R
2024-12-18 10:13:48 +01:00

20 lines
852 B
R
Raw Permalink Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
# Utiliser R pour donner les valeurs numériques attendues :
# Combien y-a-t-il de carrés (4 cartes de même valeur) dans un jeu de 32 cartes ?
nb_carres <- 8
nb_carres
# Combien danagrammes peut-on faire avec le mot "dinosaure" ?
anagrammes <- factorial(9) / factorial(2)
anagrammes
# Combien de chances a-t-on de gagner le super jackpot à leuromillion ? (donc davoir 5
# bons numéros parmi 49, et 2 bons numéros étoilés parmi 10)
chances <- choose(49, 5) * choose(10, 2)
chances
# Chaque pièce dun nouveau jeu de domino est de la forme : a b avec (a, b) ∈ {0, . . . , 9}2
# en sachant quun domino reste le même si on le tourne à 180 degrés (par exemple, 8 = 8
# est un, et un seul domino). Déterminer le nombre de pièces différentes que contient un
# jeu complet de dominos
nb_dominos <- choose(10, 2) + 10
nb_dominos