home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / glisp / tst1.gl < prev    next >
Encoding:
Text File  |  1993-10-23  |  116 b   |  6 lines
  1. "Boucle recursive sur n"
  2. (setq n 100000)
  3. (de bcln () (if (= n 0) 'ok (setq n (- n 1)) (bcln)))
  4. "(bcln)"
  5. (bcln)
  6.