% lans9709.tey pour lans9709.tex
%
\begin{verbatim}
# Exemple 1 #############################################
#
# bonjour.pghl :
#  pose une question, demande un nom et dit au revoir
#  avec traduction en majuscules du nom
#

axiom
 BJR
rules
  BJR -> Intro Question Bye
  Intro -> out 'Bonjour, quel est votre nom ?'
  Question -> in $pren
  Bye -> out 'au revoir … ' $date() ' ' $upper($pren)

#               **************************************
#               * Ex‚cution                          *
#               *      Bonjour, quel est votre nom ? *
#               *      gm                            *
#               *      au revoir … 27/09/97 GM       *
#               **************************************


# Exemple 2 ############################################
#
# fact.pghl :
#   produit en n r‚‚critures l'expression A(n!,n+1)
#

axiom
  A(1,1)
rules
  A(x,y) -> A(x*y,y+1)
options
  runlength 3
  trace
  fwrite    fact.sor






#       **************************************************
#       * Ex‚cution (r‚sultats dans le fichier fact.sor) *
#       *      1 : A(1,2)                                *
#       *      2 : A(2,3)                                *
#       *      3 : A(6,4)                                *
#       **************************************************


# Exemple 3 ############################################
#
# table de multiplication
#

axiom
  T(1,5)
rules
  T(a,x) -> {
     out $format($a,2) ' fois ' $x ' = ' $format($a*$x,5)
     nl
     T(a+1,x)
  }
options
   parameters {
     ' de quel nombre voulez-vous la table ? ' 3  1000
     ' montant ''
   }
  runlength  10

#                  ********************************
#                  * Ex‚cution                    *
#                  *   (comme d'hab !)            *
#                  ********************************
\end{verbatim}