spratt

#include <sys/mman.h>
#include <stdio.h>

void* mymalloc(size_t len) {
  void* addr = mmap(0,
                    len + sizeof(size_t),
                    PROT_READ | PROT_WRITE,
                    MAP_ANON | MAP_PRIVATE,
                    -1,
                    0);

spratt

    Aerospace film
    Biography
    Buddy Cop film
    Burlesque film
    Chick Flick
    Circus film
    Comedy film
        Black comedy
        Gross-out film
        Romantic comedy film

spratt

#!/usr/bin/env python2.7                                                        
import random
from sys import stdin, argv

words = []
for line in stdin:
    words.append(line.strip())

n = int(argv[1])

spratt

#!/usr/bin/env python2.7
import random
from sys import stdin

words = []
for line in stdin:
    words.append(line.strip())

print(random.sample(words,12))

spratt

for(var i = 0; i < objects.length; i++) {
    build_element(objects[i]);
}

spratt

(defun ttt-print (board)
  "Pretty prints a given board."
  (format t "~%  1 2 3 <- cols~%~%")
  (format t "1 ~1<~@[~A~]~>|~1<~@[~A~]~>|~1<~@[~A~]~>~%  -+-+-~%"
	  (pop board) (pop board) (pop board))
  (format t "2 ~1<~@[~A~]~>|~1<~@[~A~]~>|~1<~@[~A~]~>~%  -+-+-~%"
	  (pop board) (pop board) (pop board))
  (format t "3 ~1<~@[~A~]~>|~1<~@[~A~]~>|~1<~@[~A~]~>~%"
	  (pop board) (pop board) (pop board))
  (format t "^~% \\_ rows~%"))

spratt

(defun ttt-print (board)
  "Prints a tic-tac-toe board."
  (let* ((symbol nil)
	 (nl (string #\Newline))
	 (str (concatenate 'string
			   "S|S|S" nl
			   "-|-|-" nl
			   "S|S|S" nl
			   "-|-|-" nl
			   "S|S|S" nl)))

spratt

(defun ttt-print (board)
  "Prints a tic-tac-toe board."
  (let* ((nl (string #\Newline))
	 (str (concatenate 'string
			   "S|S|S" nl
			   "-|-|-" nl
			   "S|S|S" nl
			   "-|-|-" nl
			   "S|S|S" nl)))
    (format t str)))

spratt

'(nil nil nil nil X nil nil nil O)

spratt

(documentation 'ttt-repl 'function)