Savoir si un nombre est le multiple d'un autre

Bonjour,

voici l'en-tête de ma fonction

Code:

---

1 2 3 4 5 6 7 8 9 10

sub estMultiple{   # on récupère les paramètres my ($nombre1,$nombre2) = @_;   ...   }

---

J'aimerai que cette fonction renvoie 1 si $nombre1 est un multiple de $nombre2 0 sinon.

je n'ai aucune idée de comment faire... :(

Salut,

Bon je ne suis pas balaise dans les sub mais pour savoir si $nombre1 est multiple de $nombre2 il suffit de :

Code:

---

1 2 3 4 5 6 7

$r = $nombre1 / $nombre2; #Reste de la division if ($r =~ /^\d+$/) { #Le reste est un entier ou pas ? print "$nombre1 est multiple de $nombre2\n"; #changer pour affecter 1 à la variable renvoyée } else { print "$nombre1 n'est pas multiple de $nombre2\n"; #changer pour affecter 0 à la variable renvoyée }

---

Bonne chance...

C'est là que ça sert d'avoir fait un minimum de maths...

Code:

---

1 2 3 4 5

sub estMultiple{ my ($mult,$div) = @_; return not ($mult % $div); }

---

Mais d'habitude on ne fait pas de fonction pour ça puisque utiliser directement l'opérateur "modulo" % est plus simple.

--
Jedaï

Précission sur l'opérateur % (modulo):

r = a % b

r à pour valeur le reste de la division euclidienne a / b

Pour revenir à notre probléme
Un nombre b est multiple d'un nombre a si la division a/b = 0.
Autrement dit si a modulo b est égale à 0.

si a % b = 0 alors b divise a