home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / language / glisp.zoo / TST1.GL < prev    next >
Lisp/Scheme  |  1990-05-30  |  116b  |  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.