9 lines
249 B
Scheme
9 lines
249 B
Scheme
|
|
||
|
|
|
||
|
|
(define (reverse-list->string l n)
|
||
|
|
;; Significantly faster than (list->string (reverse l))
|
||
|
|
(let ((s (make-string n #\x)))
|
||
|
|
(let loop ((i (- n 1)) (l l))
|
||
|
|
(if (< i 0) s (begin (string-set! s i (car l))
|
||
|
|
(loop (- i 1) (cdr l)))))))
|