Strange Clock 时钟问题

Question

Problem Description
There is a strange clock, without any number written. Can you tell me what time it is now, based on the angle of the hour hand?

When the hour hand points right (0 degree), it is 3 o'clock. When it points to 80 degrees, it’s between 0 o'clock and 1 o'clock. Note that there is no 12 o'clock. You should always write 0 o'clock instead.

Input
There are at most 10 test cases. Each case contains a single integer a (0 <= a < 360), the angle of the hour hand. The input ends with a = -1.

Output
For each test case, print the current time, in one of the following format:

• Exactly x o'clock
• Between x o'clock and y o'clock Note that, in the second format, x o'clock should be exactly one hour before y o'clock, So you cannot write something like “Between 3 o'clock and 2 o'clock”.

Sample Input
90
245
-1

Sample Output
Exactly 0 o'clock
Between 6 o'clock and 7 o'clock

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

# 读取数据
data <- readLines()

for(i in 1:length(data)) {
    data[i] <- as.numeric(gsub("[^0-9]", "", data[i]))
}

# 处理输入
cases <- lapply(1:length(data), function(x) {
    a <- data[x]
    if(a == -1) return(-1)
    if(a > 180) {
        a <- a %-% 180
        if(a >= 360) a <- a - 360
    }
    c("Between", "Exactly")[a %% 360 == 0]
})

# 输出结果
results <- lapply(cases, function(x) paste("Between", x, sep=""))
print(results)