Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
11
Task/Nested-function/Scheme/nested-function.ss
Normal file
11
Task/Nested-function/Scheme/nested-function.ss
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
(define (make-list separator)
|
||||
(define counter 1)
|
||||
|
||||
(define (make-item item)
|
||||
(let ((result (string-append (number->string counter) separator item "\n")))
|
||||
(set! counter (+ counter 1))
|
||||
result))
|
||||
|
||||
(string-append (make-item "first") (make-item "second") (make-item "third")))
|
||||
|
||||
(display (make-list ". "))
|
||||
Loading…
Add table
Add a link
Reference in a new issue