Forth的控制结构有些奇怪。首先，因为它是一种反向波兰符号语言，条件在IF之前，如:

x 0 = IF

现在，要关闭条件块，使用关键字THEN:

x 0 = IF ." Equals zero!" THEN

现在真正的WTF开始了。IF所做的是编译一个有条件的前向跳转，并将跳转偏移量的地址放在堆栈上。当找到THEN时，它从堆栈中弹出该地址，计算实际偏移量，然后编译它。另一方面，ELSE编译一个条件向前跳转，从堆栈中弹出一个地址，将一个新地址压入堆栈，计算弹出地址的偏移量，然后编译该偏移量。这意味着语法是这样的:

x 0 = IF ." Equals zero!" ELSE ." Not equal to zero!" THEN

第一个和第二个语句是这样编译的:

x LITERAL 0 = (0BRANCH) LITERAL offset SLITERAL" Equals zero!" (DOTQ)
x LITERAL 0 = (0BRANCH) LITERAL offset SLITERAL" Equals zero!" (DOTQ) BRANCH LITERAL offset SLITERAL" Not equal to zero!" (DOTQ)

更奇怪的是，这种行为并不隐藏。它是该语言的ANSI规范的一部分，可以通过构造自定义流控制结构或以有趣的方式组合它们来自由利用。例如，Forth的WHILE循环:

BEGIN x 10 < WHILE x 1+ to x REPEAT

BEGIN和WHILE之间的部分是任意代码，因此实际上可以在单个控制结构中让代码在条件测试之前和之后执行。这是故意的，但下面的内容虽然是允许的，但却不允许:

BEGIN DUP 2 > WHILE DUP 5 < WHILE DUP 1+ REPEAT 123 ELSE 345 THEN 

它利用了每个控制流字的工作方式来组合两个WHILE语句，并为每个出口添加不同的后循环代码来引导。为了表明我不是在开玩笑，我只是从互联网上的一个代码中复制了这个小片段，并进行了一些小的修改来简化它。

大约20年前，当我最后一次涉足腮腺炎时，实现有一些奇怪的局限性。当主机MUMPS变得越来越流行时，MUMPS传统上是一种自托管语言:计算机语言、操作系统和数据库在一个包中。

腮腺炎主要是关于它的数据库。本质上，这是一个巨大的多维哈希表，由B*树支持，可以快速访问。语言和数据库之间也没有任何障碍:如果您想在那里存储一些东西，只需在变量前面加上一个符号，表明它将被持久化到备份存储中。

另一方面，文件系统几乎不存在，对它的支持就更少了。我们唯一能做的就是把一个程序从文件中加载到内存中，然后把内存中的内容发送回文件。最好在加载前清空缓冲区，否则它会和之前的东西混在一起。

因此，考虑到它的自托管性质和极其恶劣的文件系统，人们可能会想知道这些程序是如何编辑的。事实上，编辑器是用MUMPS本身编写的——那么，编辑器如何在不重写自己的情况下将程序存储在内存中呢?

好吧，诀窍在于能够以源代码的形式执行变量的内容。然后，编辑器将自己加载到变量中，在变量中执行自己，清除内存，然后在内存中加载、保存和编辑文件，一直从变量中执行。

除此之外，所有命令都可以被缩短为它们的第一个字母(除了Z命令，缩短为两个字母，主要处理文件系统)，还有一个奇怪的事实，比如IF (I)设置了一个变量，然后由ELSE (E)查询——当然，可以被任何介入的I或程序本身覆盖。转念一想，我觉得整个语言就是个垃圾。然而，它有一种奇怪的吸引力。

APL(除了ALL)，在一行中编写任何程序的能力。

例:在APL中，康威的生命游戏一行:

替代文本 http://catpad.net/michael/APLLife.gif

如果这句台词都不是WTF，那什么都不是!

这是一个视频

在Visual Basic 7及以上版本中，我发现实现了短路逻辑求值以保持与遗留的Visual Basic <=6代码的兼容性，有点WTF:

而且 （MSDN） OrElse （MSDN）

在c++中，你可以做:

std::string my_str;
std::string my_str_concat = my_str + "foo";

但你不能:

std::string my_str_concat = "foo" + my_str;

操作符重载通常服从WTF。

在Lisp中，你可以复制一个列表，可以复制一个向量，可以复制一个结构体，可以复制一个CLOS对象……

．.． 但是不能复制数组或哈希表。