方案问题较小

Question

这个问题要求我完成一个较小的 function，它消耗一个字符串并产生一个字符串。 使用的字符串仅包含数字字符，我们将其称为数字 (1-9,0)。 生成的字符串将包含一个长度为 1（单个数字）的字符串，该字符串通过重复删除字符串中的第一个或最后一个数字而获得，具体取决于哪个值更大。

例如，

(smaller "5284")
=> (smaller "284")
=> (smaller "28")
=> (smaller "2")
=> "2"

如果有平局（第一个和最后一个数字之间），删除最后一个。

例如，

(smaller "131")
=> (smaller "13")
=> (smaller "1")
=> "1"

那么如何为这个问题编写 Scheme 代码呢？ 非常感谢！

Answer 1

像这样的事情呢？

(define smaller
  (lambda (str)
    (cond
      [(= 1 (string-length str)) str]
      [(> (string-ref str 0) (string-ref str (- (string-length str) 1))) (smaller (substring str 0 (- (string-length str) 1)))]
      [else (smaller (substring str 1))])))