用Forth解码以十六进制编码的消息

: decode-hex ( hex-str -- decoded-str )
  HEX  \ 切换到十六进制模式
  2DUP  \ 复制两次输入字符串
  0  \ 用于存储解码后的字符串的长度
  BEGIN
    DUP WHILE
    2DUP  \ 复制两次输入字符串
    2>R  \ 将两个字符放入返回栈
    2DROP  \ 丢弃输入字符串中的两个字符
    2R@  \ 从返回栈中获取两个字符
    [CHAR] 0 >R  \ 将字符'0'放入返回栈
    2R@ [CHAR] 9 BETWEEN IF  \ 判断字符是否为0-9之间的数字
      [CHAR] 7 >R  \ 将字符'7'放入返回栈
      2R@ [CHAR] A >R  \ 将字符'A'放入返回栈
      2R@ [CHAR] a >R  \ 将字符'a'放入返回栈
      2R@ [CHAR] F >R  \ 将字符'F'放入返回栈
      2R@ [CHAR] f >R  \ 将字符'f'放入返回栈
      2R@ R@ -  \ 计算字符与'0'的差值
      DUP [CHAR] 9 <= IF  \ 判断是否为数字字符
        [CHAR] 0 -  \ 计算字符与'0'的差值
      ELSE
        DUP [CHAR] A <= IF  \ 判断是否为大写字母字符
          [CHAR] 7 -  \ 计算字符与'A'的差值
        ELSE
          DUP [CHAR] a <= IF  \ 判断是否为小写字母字符
            [CHAR] 7 -  \ 计算字符与'a'的差值
          ELSE
            DROP  \ 丢弃非法字符
            0  \ 将0压入堆栈
          THEN
        THEN
      THEN
      R> +  \ 将差值加到解码后的字符串长度上
      2DROP  \ 丢弃两个字符
    ELSE
      2DROP  \ 丢弃两个字符
    THEN
  REPEAT
  2DROP  \ 丢弃输入字符串
  SWAP  \ 交换解码后的字符串长度和解码后的字符串
  ALLOCATE  \ 分配内存
  DUP 0 DO
    I C@  \ 获取解码后的字符串中的字符
    I C!  \ 将字符存入分配的内存中
  LOOP
  COUNT  \ 获取解码后的字符串的长度和地址
  TYPE  \ 输出解码后的字符串
  FREE  \ 释放内存
;

\ 示例用法
HEX
"48656C6C6F20576F726C64" decode-hex