Operations en toutes lettres ("merci" JPR)

Author: Grahack

doc.html

@@ -466,6 +466,9 @@
 `+`, `-`, `*`, `/`, `%`, `^`, `1000Cosinus`, `1000Sinus`,
 `=`, `=/`, `<`, `<=`, `>`, `>=`, `(Entier@ ... ...)`, `(Initialiser@ ...)`.
 
+Les six premières opérations peuvent aussi être écrites
+`Somme`, `Diff`, `Produit`, `Quotient`, `Reste` et `Puissance`.
+
 **Logique booléenne**
 
 `Vrai`, `Faux`, `(Et ... [...])`, `(Ou ... [...])`, `(Non ...)`.

microalg.l

@@ -17,7 +17,7 @@ Voir <http://microalg.info>.")
 "AV" "BC" "LC" "TD" "TG"
 "Affecter_a" "Afficher" "Aide" "Ajouter_a" "Alors"
 "Cercle" "Concatener" "Contour" "credit_iterations"
-"Declarer" "Definir" "Demander" "Demander_un_nombre"
+"Declarer" "Definir" "Demander" "Demander_un_nombre" "Diff"
 "Ellipse" "En_position" "Entier@" "Epaisseur" "Et" "Exemples_de"
 "Faire" "Faux" "Fois"
 "Geler"
@@ -26,10 +26,12 @@ Voir <http://microalg.info>.")
 "Millisecondes"
 "Nieme" "Nieme@" "Nombre" "Non"
 "Ou"
-"Queue"
-"RAZ" "Rectangle" "Remplissage" "Repere" "Repeter" "Retirer_de" "Retourner" "Rien"
+"Produit" "Puissance"
+"Queue" "Quotient"
+"RAZ" "Rectangle" "Remplissage" "Repere" "Repeter" "Reste"
+"Retirer_de" "Retourner" "Rien"
 "sequence_tirages@"
-"Segment" "Si" "Sinon"
+"Segment" "Si" "Sinon" "Somme"
 "Tant_que" "Tester" "Tete" "Texte" "Triangle" "Type"
 "valeur_utilisateur" "Vide?" "Vrai"
 ))
@@ -174,13 +176,19 @@ Voir <http://microalg.info>.")
     -> 10
 ")
 (put '+ 'text "Commande somme.")
+(put 'Somme 'doc (get '+ 'doc))
+(put 'Somme 'text (get '+ 'text))
+(setq Somme '+)
 (put '- 'doc
 "Commande qui soustrait son second paramètre à son premier paramètre et retourne le résultat.
 
     : (- 7 3)
     -> 4
 ")
 (put '- 'text "Commande différence.")
+(put 'Diff 'doc (get '- 'doc))
+(put 'Diff 'text (get '- 'text))
+(setq Diff '-)
 (put '* 'doc
 "Commande qui multiplie tous ses paramètres et retourne le résultat.
 
@@ -190,6 +198,9 @@ Voir <http://microalg.info>.")
     -> 24
 ")
 (put '* 'text "Commande produit.")
+(put 'Produit 'doc (get '* 'doc))
+(put 'Produit 'text (get '* 'text))
+(setq Produit '*)
 (put '/ 'doc
 "Commande qui divise son premier paramètre par son second paramètre et retourne le résultat.
 
@@ -214,13 +225,19 @@ Sinon :
     -> 4.5
 ")
 (put '/ 'text "Commande quotient.")
+(put 'Quotient 'doc (get '/ 'doc))
+(put 'Quotient 'text (get '/ 'text))
+(setq Quotient '/)
 (put '% 'doc
 "Commande qui retourne le reste de la division euclidienne de son premier paramètre par son second paramètre.
 
     : (% 7 3)
     -> 1
 ")
 (put '% 'text "Commande reste.")
+(put 'Reste 'doc (get '% 'doc))
+(put 'Reste 'text (get '% 'text))
+(setq Reste '%)
 (put '^ 'doc
 "Commande qui retourne son premier paramètre à la puissance du second paramètre.
 
@@ -229,6 +246,9 @@ Sinon :
 ")
 (put '^ 'text "Commande puissance.")
 (de ^ (!x !y) (** !x !y))
+(put 'Puissance 'doc (get '^ 'doc))
+(put 'Puissance 'text (get '^ 'text))
+(setq Puissance '^)
 
 # Commentaires
 (put '!!! 'doc

microalg_export.l

@@ -62,4 +62,11 @@
   (de caadr (arg)
      (car (car (cdr arg)))
   )
-)
+)
+
+(setq Somme     '+)
+(setq Diff      '-)
+(setq Produit   '*)
+(setq Quotient  '/)
+(setq Reste     '%)
+(setq Puissance '^)

microalg_tests.malg

@@ -103,6 +103,12 @@
             # Opérations mathématiques
             '(= 1 (^ 2 0))
             '(= 8 (^ 2 3))
+            '(= 4 (Somme 2 2))
+            '(= 1 (Diff 3 2))
+            '(= 6 (Produit 2 3))
+            '(= 3 (Quotient 6 2))
+            '(= 2 (Reste 23 7))
+            '(= 8 (Puissance 2 3))
             # Opérations logiques
             '(= Vrai (Non Faux))
             '(= Faux (Non Vrai))