Strona główna Odkrywaj Pomoc
Zaloguj się
rain1
/
scheme-test-programs
Obserwuj 1
Polub 0
Forkuj 0
Pliki Problemy 0 Oczekujące zmiany 0 Wiki
Gałąź: master
Gałęzie Tagi
scheme-test-...
/
files
/
sexps.scm

sexps.scm 92 B
Bezpośredni odnośnik Historia Czysty

123456 
  1. (define (sexps)
    2. 

  2.   (let ((exp (read)))
    3. 

  3.     (if (eof-object? exp)
    4. 

  4. 	'()
    5. 

  5. 	(cons exp (sexps)))))
    6. 

  6.