你如何在 Scheme/Lisp 中对符号进行算术计算？

Question

我需要使用符号执行计算。我需要将 hh:mm 形式的时间转换为经过的分钟数。

;; (get-minutes symbol)->number
;; convert the time in hh:mm to minutes
;; (get-minutes 6:19)-> 6* 60 + 19

(define (get-minutes time)
  (let* ((a-time (string->list (symbol->string time)))
         (hour (first a-time))
         (minutes (third a-time))) 
    (+ (* hour 60) minutes)))

这是一个不正确的代码，经过所有转换后我得到了一个字符，无法执行正确的计算。

大家有什么建议吗？我无法更改输入类型。
上下文：输入是航班时刻表，因此我无法更改数据结构。

;; -------------------------------------------------- --------------------

编辑： 想出了一个丑陋的解决方案。请提出更好的建议。

(define (get-minutes time)
  (let* ((a-time (symbol->string time))
         (hour (string->number (substring a-time 0 1)))
         (minutes (string->number (substring a-time 2 4)))) 
    (+ (* hour 60) minutes)))

Answer 1

您可以找到字符串拆分here 的定义。它将使您能够在您选择的分隔符处拆分字符串。然后你可以像这样定义 get-minutes：

(define (get-minutes time)
  (let* ((fields (string-split (symbol->string time) '(#\:)))
         (hour (string->number (first fields)))
         (minutes (string->number (second fields))))
    (+ (* hour 60) minutes)))

Answer 2

您需要转换为数值才能使您的计算有意义。 (hour (string->number (string (first a-time)))) 相同的分钟