Strona główna Odkrywaj Pomoc
Zaloguj się
maximed
/
guile
kopia lustrzana https://git.savannah.gnu.org/git/guile.git
Obserwuj 1
Polub 0
Forkuj 0
Pliki Problemy 0 Wiki
Gałąź: nan-boxing
Gałęzie Tagi
guile
/
test-suite
/
vm
/
t-do-loop.scm

t-do-loop.scm 111 B
Bezpośredni odnośnik Historia Czysty

123456 
  1. (let ((n+ 0))
    2. 

  2.   (do ((n- 5  (1- n-))
    3. 

  3.        (n+ n+ (1+ n+)))
    4. 

  4.       ((= n- 0))
    5. 

  5.     (format #f "n- = ~a~%" n-)))
    6. 

  6.