pqwy

view.fn 'unwrap', (ob) ->
  { key, value } for own key, value of ob)

pqwy

class A
  include Mongoid::Document
  embeds_one :b
end

class B
  include Mongoid::Document
  embedded_in :a
end

pqwy

class A
  include Mongoid::Document
  has_many :bs
end

class B
  include Mongoid::Document
  belongs_to :a
end

pqwy

# This is LiveScript, really, but GH can't colour it -- yet.

time = (n, target) ->
  t0 = (new Date).getTime!
  for i from 1 to n then r = target!
  t  = (new Date).getTime! - t0
  ta = t / n
  console.log "[time] #t ms (avg #ta ms)"
  r

pqwy

// nb. we have a typo with occurrences -- sometimes they are called "occurences".

var filter = {};

var projection = {
  _id                    : true,
  facebook_occurence_ids : true
};

db.movies.find(filter, projection)

pqwy

#include <iostream>
#include <fstream>
#include <vector>
#include <sys/time.h>

using namespace std;

typedef vector<int> vec;
typedef vector<int>::iterator ix;

pqwy

express = require \express

app = express!
  ..set \views, "#__dirname/../views"
  ..use express.static "#__dirname/../pub"

app.get '/', (req, res) ->
  res.render 'index.jade'

app.listen 3001

pqwy

#lang racket

;;
;; Run-of-the mill metacircular evaluator for (a small subset of) scheme.
;; Includes delimited continuations, and the tower of (positive) meta-levels.
;;

(struct closure [vars body environment])
(struct primitive [procedure])

pqwy

{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances #-}
{-# LANGUAGE OverlappingInstances, UndecidableInstances #-}

module Peek (
  module Data.Monoid
, Store, runStore, store, stores
, Restorable, restore
, AutoSize, autoSizeOf
) where

pqwy

{-# LANGUAGE FlexibleContexts, ScopedTypeVariables #-}
{-# LANGUAGE FlexibleInstances, OverlappingInstances, UndecidableInstances  #-}

module GenS (AutoStorable) where

import Control.Applicative
import GHC.Generics
import Data.Word
import Foreign