@HypocriteWorld said:
(define (wtffunction . wtfstrings)
(if (null? wtfstrings) "" (string-append (car wtfstrings) (apply wtffunction (cdr wtfstrings)))))Not that a big of a wtf, except that it's unlikely that he is using Scheme, and also that string-append does exactly this already.
(define (wtffunction2 . wtfstrings)
(define (wtf-iter cs ns)
(if (null? ns) cs
(wtf-iter (string-append cs (car ns))
(cdr ns))))
(wtf-iter "" wtfstrings))
Fixed it for ya :)
Only in LISP would that look natural.