Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 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