L'absence de préprocesseur natif à ce langage me laisse perplexe mais je demeure intéressé.
J'ai écrit une lookuptable sans savoir comment y accéder plus tard.
Utiliser l'interpréteur sans programme n'est pas gagné
J'ai persévéré sans lookuptable et j'ai obtenu mes propres routines de copie et de produit.
Je commence à copier ce programme TI-Basic interpréteur pour tester mes routines de Brainfuck. Mais je découvre des défauts de conception. Je me décide donc à l'améliorer.
La taille de la table de données n'est pas affectée. Comme ça peut s'agrandir je peux l'admettre...
Le pointeur nul devrait être géré. Soit on interdira cela soit on insérera un terme.
Le pointeur excessif qui allonge la liste est intéressant. Retenons alors qu'il n'y a donc pas de wrapping (retour à l'autre extrémité).
L'instruction "[" doit réaliser un test à l'entrée dans la définition du langage mais tu ne l'as pas implémenté.
Je propose de corriger "[" avec une boucle dédiée à la recherche d'un "]" fermant ce "[" tout en tenant compte des boucles imbriquées. Je préfère cela à une exploitation de la boucle principale qui imposerait soit une alternative supplémentaire soit des conditions.
Enfin la table de pile de retour n'est jamais vidée, pas même lors d'une sortie de structure.
Par ailleurs j'envisage d'utiliser une variable pour conserver sa taille plutôt que de lire la fonction dim souvent.
Je propose de corriger "]" avec une condition pour vider la pile.
Si l'espace ajouté lors de la suppression de caractère non-sens sert à ne pas déplacer de code pour de la compatibilité avec les boucles, alors il faudra le placer au milieu en remplacement du caractère non-sens.
Si cet espace a un but d'éviter des chaines vides, alors c'est tout faux : les sous-chaînes sub() planteraient aussitôt qu'elles devraient être vides. Cela arriverait aux extrémités.
Il serait judicieux d'ajouter un caractère non-code tel qu'espace à chaque extrémité de la chaîne code juste après la saisie, et naturellement de remplacer les non-sens par espace lors de leur suppression. Ainsi les décalages de code et les chaines vides seront évités.
On peut modifier le pointeur initial si on ne veut pas lire le caractère ajouté en extrémité.
Par ailleurs les conventions du langage que j'ai lu stipulent que tout caractère non-sens est un commentaire, donc je négligerais bien cette fonctionnalité de remplacement des non-sens.
Je soulève à cette occasion une subtilité bien pratique du Brainfuck : si on enchaîne une quelconque boucle à une autre sans action entre les deux, la seconde n'est pas lue, donc on peut mettre n'importe quoi de commentaire à ce moment...
Dans cette première version sans alternative je retire la fonctionnalité de suppression des caractères non-sens.
- Code:
:Input Str1
:{0→L1
:Ans→L2
// :999→dim(L1
:1→B
:For(A,1,length(Str1
: sub(Str1,A,1→Str2
: If Str2="+
: 1+L1(B→L1(B
: If Str2="-
: L1(B)-1→L1(B
: If Str2=">
: Then
: B+1→B
: If B>dim(L1
: B→dim(L1
: End
: If Str2="<
: Then
: B-1→B
: If B<1
: 1→B
: End
: If Str2=".
: Pause L1(B
: If Str2=",
: Then
: Input C
: C→L1(B
: End
: If Str2="[
: Then
: If L1(B
: Then
: A→L2(1+dim(L2
: Else
: 1→C
: While C
: A+1→A
: sub(Str1,A,1
: C+(Ans="[")-(Ans="]")→C
: End
: End
: End
: If Str2="]
: Then
: If L1(B
: Then
: L2(dim(L2→A
: Else
: dim(L2)-1→dim(L2
: End
: End
: If Str2="V
: Pause L1
:End
Je n'ai pas le courage de revenir aux alternatives ou d'ajouter des conditions... Je montre juste les deux parties qui concerneront le remplacement des caractères non-sens.
- Code:
Input Str1
" "+Str1+" "->Str1
- Code:
: If Str2≠" " // et autres conditions, que ce ne soit pas du code notamment
: Then
: Disp "ERR: "+Str2+" IND:
: Pause A
: Menu("DELETE?","Y",0,"N",1
: Lbl 0
: sub(Str1,1,A-1)+" "+sub(Str1,A+1,length(Str1)-A→Str1
: Lbl 1
: Pause Str1
: End
Et au final ma routine de produit de char marche et donc ce programme interpréteur aussi, youpi !
Hitskin.com
Portail
Tu parles de ça?
, la méthode de recherche de fin de boucle aussi!