如何将列表中的两个整数合并为一个？ （方案中）
例子：
'(11 223) -> 11223
假设列表恰好有两个元素，并且都是数字：
(define (merge-numbers lst)
(let ((1st (number->string (first lst)))
(2nd (number->string (second lst))))
(string->number (string-append 1st 2nd))))
它按预期工作：
(merge-numbers '(11 223))
> 11223
或者，不使用let:
(define (merge-numbers lst)
(string->number
(string-append
(number->string (first lst))
(number->string (second lst)))))
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
