/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        N O M B R E   D ' A R E T E S   D ' U N   H Y P E R - C U B E  :                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xcg/HyperCube.01$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20160714095728).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R F A C E   ' listG '  :                                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        :Debut_listG:                                                                                                              */
/*        :Fin_listG:                                                                                                                */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D I R E C T I V E S   S P E C I F I Q U E S   D E   C O M P I L A T I O N  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  INCLUDES_BASE

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   DIMENSION_DE_L_HYPER_CUBE                                                                                                     \
                    TRI_DIMENSIONNEL                                                                                                    \
                                        /* Dimension de l'hyper-cube dont on veut le nombre d'aretes.                                */
#define   CALCULER_LE_NOMBRE_D_ARETES                                                                                                   \
                    VRAI                                                                                                                \
                                        /* Faut-il calculer le nombre d'aretes ('VRAI') ou bien le nombre de sommets ('FAUX').       */ \
                                        /* Ceci fut introduit le 20160714113256...                                                   */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*         R - C U B E  : C I R C U L A I R E   D ' U N   N O M B R E  :                                                             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(Int,INIT(dimension_de_l_hyper_cube,DIMENSION_DE_L_HYPER_CUBE));
                                        /* Dimension de l'hyper-cube dont on veut le nombre d'aretes.                                */
     DEFV(Logical,INIT(calculer_le_nombre_d_aretes,CALCULER_LE_NOMBRE_D_ARETES));
                                        /* Faut-il calculer le nombre d'aretes ('VRAI') ou bien le nombre de sommets ('FAUX').       */
                                        /* Ceci fut introduit le 20160714113256...                                                   */

     /*..............................................................................................................................*/
     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_I("dimension=""dim=""d=",dimension_de_l_hyper_cube);
                         GET_ARGUMENT_L("nombre_aretes=""aretes=""na=",calculer_le_nombre_d_aretes);
                         GET_ARGUMENT_N("nombre_sommets=""sommets=""ns=",calculer_le_nombre_d_aretes);
                         )
                    );

     Test(IL_FAUT(calculer_le_nombre_d_aretes))
          Bblock
          CAL2(Prin1("%d\n",nombre_d_aretes_d_un_hyper_cube(dimension_de_l_hyper_cube)));
                                        /* Edition du nombre d'aretes de l'hyper-cube (mis sous cette forme le 20160714103919...).   */
          Eblock
     ATes
          Bblock
          CAL2(Prin1("%d\n",nombre_de_sommets_d_un_hyper_cube(dimension_de_l_hyper_cube)));
                                        /* Edition du nombre de sommets de l'hyper-cube (introduit le 20160714113939).               */
          Eblock
     ETes

     RETU_Commande;
     Eblock
ECommande