Name: Anonymous 2011-12-28 16:31
You people posting about Haskell, tell me this is an elaborate troll. No one actually uses this, right?
BBCode a joke? You people posting about BBCode, tell me this is an elaborate troll. No one actually uses this, right?
(defun none (list)
(not (find-if #'identity list)))
(jokep 'lisp)
(assert (elaborate-troll-p 'lisp))
(assert (none (mapcar #'(lambda (p) (usesp p 'lisp))
(remove-if-not #'(lambda (p) (posts-about-p p 'lisp))
*people*))))
[1]> (jokep 'lisp)
*** - EVAL: undefined function JOKEP
The following restarts are available:
USE-VALUE :R1 You may input a value to be used instead of (FDEFINITION 'JOKEP).
RETRY :R2 Retry
STORE-VALUE :R3 You may input a new value for (FDEFINITION 'JOKEP).
ABORT :R4 Abort main loop
Break 1 [2]># cat prog.c
#include <assert.h>
#include <ctype.h>
#include <stdlib.h>
#include "prog.h"
int main(void) {
assert(istroll(Haskell));
assert(isjoke(Haskell));
assert(!isactuallyused(Haskell));
assert(isvaporware(Perl6));
assert(isparodyofpascal(C));
assert(isshit(GC));
assert(isshit(Java));
assert(isshit(Lisp));
assert(iselaboratetroll(Lisp));
assert(iscrap(!Lisp));
hax(self.anus);
return EXIT_SUCCESS;
}