صفحهٔ اصلی گشت‌و‌گذار راهنما
ورود
rain1
/
scheme-test-programs
دنبال کردن 1
ستاره دار 0
انشعاب 0
پرونده‌ها مشکلات 0 درخواست واکشی 0 ویکی
شاخه: master
شاخه‌ها تگ‌ها
scheme-test-...
/
functions
/
repeat.scm

repeat.scm 101 B
لینک دائمی تاريخچه خام

123456 
  1. (define (repeat thunk n)
    2. 

  2.   (if (= 0 n)
    3. 

  3.       #t
    4. 

  4.       (begin (thunk)
    5. 

  5. 	     (repeat thunk (- n 1)))))
    6. 

  6.