codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
(define temp-list (list '398 '150 '1.15 '2875 '-900 '1565 '800 '230 '200 '0 '0 '0)) (define b (let loop ((xs temp-list) (zs '())) (if (null? (cdr xs)) (apply string-append (reverse (cons (number->string (car xs)) zs))) (loop (cdr xs) (cons " " (cons (number->string (car xs)) zs)))))) (write b)
Private
[
?
]
Run code
Submit