14 lines
284 B
Racket
14 lines
284 B
Racket
|
#lang racket
|
||
|
|
|
||
|
|
(define (make-list separator)
|
||
|
|
(define counter 1)
|
||
|
|
|
||
|
|
(define (make-item item)
|
||
|
|
(begin0
|
||
|
|
(format "~a~a~a~%" counter separator item)
|
||
|
|
(set! counter (add1 counter))))
|
||
|
|
|
||
|
|
(apply string-append (map make-item '(first second third))))
|
||
|
|
|
||
|
|
(display (make-list ". "))
|