在C或c++中，使用宏可以获得很多乐趣。如

#define FOO(a,b) (a+b)/(1-a)

如果传入FOO(bar++，4)，它将使a增加两次。

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

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

哈哈！

整个语言本身。虽然不完全是WTF的事情，但我从来没有遇到过一种语言在我的脑海中以一种刺耳的卡通声音播放。我以前也从来没有看过代码并想要惊呼“啊啊啊啊可爱!”

这个程序显示数字1-10并终止

HAI
CAN HAS STDIO?
IM IN YR LOOP UPPIN YR VAR TIL BOTHSAEM VAR AN 10
    VISIBLE SUM OF VAR AN 1
IM OUTTA YR LOOP
KTHXBYE

在Scala中，没有操作符，只有方法。所以a + b - c实际上等于a +(b) -(c)在这里，它等于Smalltalk。但是，与Smalltalk不同的是，它考虑了优先级。规则基于第一个字符，因此一个假设的方法*+将优先于一个叫做+*的方法。做了一个例外，以便任何以=结尾的方法都将具有与==——含义相同的优先级!!和!=(非假设方法)具有不同的优先级。

所有ASCII字母的优先级最低，但所有非ASCII (unicode)字符的优先级最高。如果你写了一个比较两个int型的方法，那么2 + 2 = 1 + 3将会编译并为真。如果你用葡萄牙语写é，那么2 + 2 é 1 + 3会导致错误，因为它会看到2 + (2 é 1) + 3。

而且，在Scala中操作符的WTF中，所有以:结尾的方法都是右关联的，而不是左关联的。这意味着1::2::Nil等价于Nil.::(2).::(1)而不是1.::(2).::(Nil)。

大约在1977年，我在Lisp中添加了“format”函数，那时“printf”甚至还不存在(我是从与Unix相同的源:Multics复制的)。它一开始很无辜，但后来被一个接一个的特征填满了。当Guy Steele引入迭代和相关特性时，事情就失控了，这些特性被Common Lisp X3J13 ANSI标准所接受。下面的示例可以在Common Lisp The Language, 2nd Edition第22.3.3节中的表22-8中找到:

(defun print-xapping (xapping stream depth)
  (declare (ignore depth))
  (format stream
      "~:[{~;[~]~:{~S~:[->~S~;~*~]~:^ ~}~:[~; ~]~ ~{~S->~^ ~}~:[~; ~]~[~*~;->~S~;->~*~]~:[}~;]~]"
      (xectorp xapping)
      (do ((vp (xectorp xapping))
           (sp (finite-part-is-xetp xapping))
           (d (xapping-domain xapping) (cdr d))
           (r (xapping-range xapping) (cdr r))
           (z '() (cons (list (if vp (car r) (car d)) (or vp sp) (car r)) z)))
          ((null d) (reverse z)))
      (and (xapping-domain xapping)
           (or (xapping-exceptions xapping)
           (xapping-infinite xapping)))
      (xapping-exceptions xapping)
      (and (xapping-exceptions xapping)
           (xapping-infinite xapping))
      (ecase (xapping-infinite xapping)
        ((nil) 0)
        (:constant 1)
        (:universal 2))
      (xapping-default xapping)
      (xectorp xapping)))

在PHP中:

<?php
$o = new stdClass;
echo count($o);
?>

．．打印1。一直不知道为什么。