标志 - 字符串


任何字母数字字符序列,例如“america”、“emp1234”等都是字符串的示例。计算字符数是所有字符串处理中最基本的。问题字符串长度“abc12ef”的答案由以下过程给出 -

to stringlength :s
   make "inputstring :s
   make "count 0
   while [not emptyp :s] [
      make "count :count + 1
      print first :s
      make "s butfirst :s
   ]
   print (sentence :inputstring "has :count "letters)
end

在上面的过程中 -'s' 是包含输入字符串的变量。变量 inputstring 包含输入字符串的副本。变量 count 初始化为 0。在 while 循环中,条件检查字符串是否已变为空。在每个循环计数中,变量加 1 以保存长度计数。语句print first :s只打印存储在 's' 中的字符串的第一个字符。

语句make "s butfirst :s,检索不包括第一个字符的子字符串。退出 while 循环后,我们已经打印了字符数或输入字符串的长度。以下是代码的执行和输出。

弦乐