my $new = Math::BigFloat->new($ratio); $new->accuracy($pos);
die("off <1 limit :".$new->bstr()) if ($new->bstr() =~ /^([^0]+.*)$/);
my $q = $new->copy; my $res = ""; my $cnt = 0;
while ($cnt++ != $pos){
$rat =~ s/^(\d*\.)(\d+)$/$2/; my @digits = split //,$rat;
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
robot de fr.test
Bonjour,
Vous venez d'envoyer un message de test à destination d'Usenet intitulé 'code test'. Ce message a bien été propagé. (Ce robot répond à tout message isolé -- pas les réponses -- posté sur fr.test contenant le mot clé 'test' ou 'essai'.)
Vous venez d'envoyer un message de test à destination d'Usenet intitulé 'code test'.
Ce message a bien été propagé.
(Ce robot répond à tout message isolé -- pas les réponses -- posté sur fr.test contenant le mot clé 'test' ou 'essai'.)
Vous venez d'envoyer un message de test à destination d'Usenet intitulé 'code test'. Ce message a bien été propagé. (Ce robot répond à tout message isolé -- pas les réponses -- posté sur fr.test contenant le mot clé 'test' ou 'essai'.)
