2

我想从用户那里获取字符串，解析它，然后运行解析的命令。

字符串输入将类似于“F20N20E10L10”，保证没有空格。

我想将此输入转换为带有如下替换的 LOGO 命令：

  • “F”→fd
  • “N”→seth 0 fd
  • “E”→seth 90 fd
  • “L”→lt 90 fd

所以上面输入的字符串会被转换成这些LOGO命令：

fd 20 seth 0 fd 20 seth 90 fd 10 lt 90 fd 10

所有 Forth 方言都允许输入和解释一串命令。

但我找不到任何搜索和替换字符串操作。这在LOGO的任何方言中都可能吗？愿意考虑任何。

感谢您的阅读。

4

1 回答 1

2

我已经有一段时间没有写任何徽标了，所以我不确定这是否是最简单的方法，但这是你可以做到的一种方法。一般的想法是您可以将字符串作为字符列表使用，使用FIRST, LAST, BUTFIRST, 和BUTLAST获取字符串的不同部分。（我在我能找到的前两个在线徽标解释器上对此进行了测试——http: //www.logointerpreter.com/turtle-editor.php和http://www.calormen.com/jslogo/——它运行良好两者都有，但您可能需要对其他 Logo 方言进行一些小改动。）

TO RUN_COMMANDS :commands
  IF (EMPTY? :commands) [STOP]

  MAKE "first_command (FIRST :commands)
  MAKE "rest_of_commands (BUTFIRST :commands)

  IF (NOT EMPTY? :rest_of_commands) [MAKE "split (GET_NUMBER :rest_of_commands ")]
  MAKE "numeric_argument (LAST :split)
  MAKE "rest_of_commands (FIRST :split)

  RUN_SINGLE_COMMAND :first_command :numeric_argument

  RUN_COMMANDS :rest_of_commands
END

TO MERGE_STRING :word :characters
  IF (NOT EMPTY? :characters) [OP (MERGE_STRING (WORD :word (FIRST :characters)) (BUTFIRST :characters))]
  OP :WORD
END

TO GET_NUMBER :word :number
  IF (AND (NOT (EMPTY? :word)) (IS_DIGIT (FIRST :word))) [OP (SE (GET_NUMBER (BUTFIRST :word) (LPUT (FIRST :word) :number))]
  OP (SE (MERGE_STRING " :word) (MERGE_STRING " :number))
END

TO IS_DIGIT :character
  OP (OR
  :character = "0
  :character = "1
  :character = "2
  :character = "3
  :character = "4
  :character = "5
  :character = "6
  :character = "7
  :character = "8
  :character = "9)
END

TO RUN_SINGLE_COMMAND :command :parameter
  (PRINT_COMMAND :command :parameter)
  IF (:command = "F) [FD :parameter]
  IF (:command = "B) [BK :parameter]
  IF (:command = "L) [LT 90 FD :parameter]
  IF (:command = "R) [RT 90 FD :parameter]
  IF (:command = "N) [SETH 0 FD :parameter]
  IF (:command = "S) [SETH 180 FD :parameter]
  IF (:command = "E) [SETH 90 FD :parameter]
  IF (:command = "W) [SETH 270 FD :parameter]
END

TO PRINT_COMMAND :command :parameter
  IF (:command = "F) [PRINT (SE "FD :parameter)]
  IF (:command = "B) [PRINT (SE "BK :parameter)]
  IF (:command = "L) [PRINT (SE "LT 90 "FD :parameter)]
  IF (:command = "R) [PRINT (SE "RT 90 "FD :parameter)]
  IF (:command = "N) [PRINT (SE "SETH 0 "FD :parameter)]
  IF (:command = "S) [PRINT (SE "SETH 180 "FD :parameter)]
  IF (:command = "E) [PRINT (SE "SETH 90 "FD :parameter)]
  IF (:command = "W) [PRINT (SE "SETH 270 "FD :parameter)]
END

然后，尝试运行：

RUN_COMMANDS "F20N20E10L10

这将打印并执行以下内容：

FD 20
SETH 0 FD 20
SETH 90 FD 10
LT 90 FD 10

一些解释

RUN_COMMANDS是主要功能。它：

  1. 从刺中提取第一个字母（我假设每个命令都缩写为单个字母）
  2. GET_NUMBER从字符串开头提取数字（可能是多个字符）的调用。
  3. 将单字母缩写命令和编号传递给RUN_SINGLE_COMMAND
  4. 递归重复该过程

IS_DIGIT用于GET_NUMBER检查字符是否为数字（尽管我敢打赌，某些 Logo 方言对此具有内置功能。）

MERGE_STRING之所以使用，是因为我有一些多字符单词（“单词”是一个字符串的标志），我已经变成了单字符单词列表，我想将列表合并回一个单词。不过，这实际上可能没有必要。

RUN_SINGLE_COMMAND执行从输入字符串解析的每个单独的命令。我只是使用了一个大IF语句，而不是像您建议的那样使用将字符串解释为代码的函数。（某些 Logo 方言可能有这样的功能，但我不确定是否有标准功能。） RUN_SINGLE_COMMAND还调用PRINT_COMMAND，它会在运行时打印出未缩写的命令。

潜在的堆栈溢出

我使用了很多递归，因为它更符合 Logo 的习惯，并且因为 Logo 方言通常没有很多循环结构（除了REPEAT）。但是我做的很粗心，因为我写这篇文章只是为了给你一个大致的想法。特别是，我不担心堆栈溢出（不是双关语），我认为如果您提供了一个长输入字符串，可能会发生这种情况。为了解决这个问题，你应该确保任何可以任意多次调用的递归路径都是尾调用，Logo 会优化掉它。

乍一看，它看起来RUN_COMMANDS很好，但又MERGE_STRING被GET_NUMBER颠倒了——而不是IF <condition> [<recursive_call>]跟随OUTPUT <return_value>，最好是IF (NOT <condition>) [OUTPUT <return_value>]跟随<recursive_call>。测试堆栈溢出并应用此修复程序作为练习留给读者。:)

于 2017-10-13T09:44:17.830 回答