Bonsoir ,
je vous propose l'exercice suivant à faire dans le language de votre choix : soit une sequence de chiffres en "0" et "1" , par exemple 01110101101001111 , le but est de transformer toutes les séquences de "1" de la facon suivante 01230101201001234, les "0" etant conservés , plus clairement si on tombe sur un paquet de "1" dans la chaine , comme par exemple "11111", celui ci deviendra 12345.
Bonsoir
Voici un code simple en python
il prend en entrée une liste d'entiers 0 et 1
Cliquez pour afficherBonjour,
Trop tard pour me mettre à la programmation (regrets éternels).
Comme j'avais un bidule pour écrire en binaire,j'ai rajouté des formules pour le transformer en"flight"
Voici un extrait :
Grace à mon bidule on peut trouver des cas "amusants"
n binaire "fltght"
130430 -->11111111011111110-->1234567012345670
Pour info, voici un échange que je viens d'avoir avec ChatGPT:
Bonsoir à tous.
@sanantonio312 : je ne trouve pas le résultat impressionnant, finalement tu n'obtiens pas le résultat voulu.
J'ai écris une fonction python, mais elle ressemble tellement à celle de Zormuche que je ne comptais pas la poster.
Comme je participe au fil je la mets quand même.
Cliquez pour afficherPerso ,j'ai trouvé en1 minute..
a) écrire une suite de 1 et de 0 (comme j'avais déjà un tableur en binaire 18 colonnes de B à S) 5sec.
b) formule ( dans la colonne U par exemple :
si( B n =0;0;1)
c)dans la colonne V
si (Un=0;0;Un+1) recopiée jusqu'à AL
d) recopie sur toutes les lignes disponibles
comme dans bien d'autres
pour ne citer personne sur l'île des maths.
comme dans bien d'autres
pour ne citer personne sur l'île des maths.
Le plus impressionnant c'est l'impression de parler à une personne
qui en plus est polie.....sans être vexée le moins du monde.
Bonjour et merci pour vos participations ...pas difficile à faire finalement...
de mon coté en une poignée de ligne avec vba :
Sub transformation_chaine()
Dim w As String
chaine = "0111010111001001111"
j = 1
For i = 1 To Len(chaine)
If Mid(chaine, i, 1) = "1" Then
w = w & j
j = j + 1
Else
j = 1
w = w & "0"
End If
Next
Debug.Print w ' retourne 0123010123001001234
End SubVous devez être membre accéder à ce service...
Pas encore inscrit ?
1 compte par personne, multi-compte interdit !
Ou identifiez-vous :