方案语言:合并两个数字 [英] Scheme language: merge two numbers

问题描述

如何将列表中的两个整数合并为一个? (在计划中) 示例:
'(11 223)-> 11223

How can I merge two integers from a list into one? (in Scheme) Example:
'(11 223) -> 11223

推荐答案

假定列表中有两个元素，并且两个元素都是数字:

Assuming that the list has exactly two elements, and that both are numbers:

(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)))))

这篇关于方案语言:合并两个数字的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！