BigEndian

#lang racket

(struct tag ([name #:mutable] [parent #:mutable]) #:transparent)

;; Construction convenience method
(define (make-tag name [parent #f])
  (tag name parent))

;; Returns true if the given tag has no parent
(define (tag-orphan? t)

BigEndian

Keybase proof

I hereby claim:

• I am bigendian on github.
• I am bigendian (https://keybase.io/bigendian) on keybase.
• I have a public key whose fingerprint is CB99 61F0 CF87 19A3 FB3E 5EEC D3D5 73EF 9333 0B6D

To claim this, I am signing this object:

BigEndian

import sublime
import sublime_plugin
import subprocess
import os
from stat import *
import threading

sublime_version = 2

if not sublime.version() or int(sublime.version()) > 3000:

BigEndian

" Press ? for help

.. (up a dir)
/home/eric/prog/python/chan/
|+1799937_images/
|+__pycache__/
|+Lisbeth Salander/
|-chan.py
|-chan_utils.py*
`-file.log

BigEndian

'use strict';
var COMPILED = !0, goog = goog || {};
goog.global = this;
goog.DEBUG = !1;
goog.LOCALE = "en";
goog.provide = function (a) {
  if (!COMPILED) {
    if (goog.isProvided_(a))
      throw Error('Namespace "' + a + '" already declared.');

BigEndian

Twitter公式クライアントのコンシューマキー

Twitter for iPhone

Consumer key: IQKbtAYlXLripLGPWd0HUA
Consumer secret: GgDYlkSvaPxGxC4X8liwpUoqKwwr3lCADbz8A7ADU

Twitter for Android

Consumer key: 3nVuSoBZnx6U4vzUxf5w
Consumer secret: Bcs59EFbbsdF6Sl9Ng71smgStWEGwXXKSjYvPVt7qys

Twitter for iPad

Consumer key: CjulERsDeqhhjSme66ECg

BigEndian

(ns fourclojure.problem)

(def ^:dynamic problems #{})

(defn create-problem [prob-name prob-num prob-args prob-body]
  {:problem true :name prob-name :number prob-num :args prob-args :body prob-body})

(defn add-problem [problem]
  (do
    (def problems (conj problems problem))

BigEndian

(ns clojure_poll.models.poll
  (:use [clojure.inspector :only [atom?]]))


(defrecord Vote [name ip])
(defrecord Option [id text])
(defrecord Poll [id title options votes])
; int, string, set, vector of vectors

(defonce polls (atom (sorted-set-by #(< (:id @%1) (:id @%2)))))

BigEndian

(ns clojure_poll.poll)

; Options is a vector, each element being a map from the option's text to a set of votes

(defstruct poll [:id :title :options])
(defstruct vote [:name :ip])

(defonce polls (atom (sorted-set-by #(< %1 (:id %2)))))

BigEndian

module TicTacToe where
   import Data.List
   import Data.Maybe(isJust, isNothing, catMaybes)

   data Player = Player { symbol :: Char, name :: String } deriving (Eq)
   data Cell   = Cell {player :: Player} | Empty deriving (Eq)
   data Board  = Board { cells :: [[Cell]] }
   data Game   = Game { players :: [Player], board :: Board }

   instance Show (Cell) where