/*  (gH)   -_-  range_sol.rex  ;  TimeStamp (unix) : 18 Novembre 2012 vers 10:55 */

/* implémentation de la fonction range de python en rexx */

a = range(5)        /* doit renvoyer 1 2 3 4 5 */
say a

say range(10,15)    /* doit afficher 10 11 12 13 14 15 */

say range(10,20,4)  /* doit afficher 10 14 18 */

exit(0)             /* code-retour 0 : tout va bien */

/* implémentation de la fonction range */

range:

  parse arg debut , fin , pas

  leRange = ""

  if pas = "" then do
     pas = 1
  end /* finsi */

  if fin = "" then do
     fin   = debut
     debut = 1
  end /* finsi */

  do ival=debut to fin by pas
     leRange = leRange ival
  end /* fin de pour */

return leRange