Strings

任何字母数字字符序列，例如 - “america”，“emp1234”等都是字符串的示例。 计算字符是所有字符串过程中最基本的。 问题stringlength "abc12ef的答案stringlength "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

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

该语句make "s butfirst :s ，检索除第一个字符之外的子字符串。从while循环退出后，我们打印了字符计数或输入字符串的长度。以下是代码的执行和输出。