2

我需要使用符号执行计算。我需要将 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)))
4

2 回答 2

4

您可以在此处找到字符串拆分的定义。它将使您能够在您选择的分隔符处拆分字符串。然后你可以像这样定义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)))
于 2009-07-14T17:58:30.997 回答
1

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

于 2009-07-14T15:40:03.210 回答