用于BCPL的isdigit函数

Question

我目前正在为一门操作系统课程用BCPL语言编程，我想写一个简单的is_digit()函数，以便在我的程序中进行验证。

下面是我当前代码的一个代码片段：

let is_digit(n) be {
  if ((n >= '0') /\ (n <= '9')) then 
    resultis true;
}

我知道BCPL没有类型的概念，但是我如何能够在语言中完成这类事情呢？

传入一个数字会产生一个false结果，而不是预期的true。

Answer 1

is_digit()是一个返回值的函数，而不是一个例程，所以应该使用= VALOF而不是BE。否则，代码是OK的。

let is_digit(n) = valof {
    .....
    resultis true
 }