digal’s gists

digal / gist:4770f1a0783c8022e331

Created June 26, 2014 11:10

Cayley tagging

	//src
	var filmToActor = g.Morphism().Out("/film/film/starring").Out("/film/performance/actor")

	g.V().Has("name", "Casablanca").Save("name", "source").Follow(filmToActor).Tag("target").All()

	//Output (note the different "source" values in first and remaining records):

	{
	"result": [
	{

digal / gist:f6af29483cf8ff1dc5bc

Created June 24, 2014 14:30

swift gen result

	enum ProtocolMessage : Printable, Equatable {
	case Keepalive
	case Hello(pubkey: NSData, password: String)
	case Send(encodedMessage: NSData, toPubkey: NSData)
	case HelloResponse
	case Message(encodedMessage: NSData, fromPubkey: NSData)

	var description: String {
	get {
	switch self {

digal / gist:2a81d1ff0bdfd37ce7d5

Last active August 29, 2015 14:02

podfile stats

digal / gist:11a482e47ee1b56c4b04

Last active August 29, 2015 14:02

Syncronous data fetcher in swift

	//@auto_closure hack to prevent `LLVM ERROR: unimplemented IRGen feature! non-fixed multi-payload enum layout`
	//as in https://github.com/maxpow4h/swiftz/blob/master/swiftz/Either.swift
	enum Either<L,R> {
	case Left(@auto_closure () -> L)
	case Right(@auto_closure () -> R)

	func flatMapLeft<L1>(f: (L) -> Either<L1, R>) -> Either<L1, R> {
	switch self {
	case let .Left(l): return f(l())
	case let .Right(r): return .Right(r)

digal / index.html

Last active August 29, 2015 13:56

Working with bootstrap dropdowns in clojurescript

	<!DOCTYPE html>
	<html lang="en">
	<head>
	<meta charset="utf-8">
	<meta http-equiv="X-UA-Compatible" content="IE=edge">
	<meta name="viewport" content="width=device-width, initial-scale=1">
	<title>Pay QR</title>

	<!-- Bootstrap -->
	<!-- Latest compiled and minified CSS -->

digal / gist:8418398

Last active January 3, 2016 05:49

Hobbit symmetrization

	(defn symmetrize-body-parts
	"Expects a seq of maps which have a :name and :size"
	[asym-body-parts]
	(loop [unprocessed-parts asym-body-parts
	processed-parts nil]
	(println (str "processed: " processed-parts))
	(println (str "unprocessed: " unprocessed-parts))
	(if unprocessed-parts
	(let [[current-part & remaining-parts] unprocessed-parts
	processed-with-left (conj processed-parts current-part)]

digal / RAC example

Created August 26, 2013 14:07

	[[[[[[[[[RACAbleWithStart(client, networkReachabilityStatus)
	filter:^BOOL(NSNumber* statusNumber) {
	AFNetworkReachabilityStatus status = statusNumber.intValue;
	BOOL autoLoadOn3G = [[NSUserDefaults standardUserDefaults] boolForKey:KEY_AUTOLOAD_3G];

	return (status == AFNetworkReachabilityStatusReachableViaWiFi
	\|\| (autoLoadOn3G && status == AFNetworkReachabilityStatusReachableViaWWAN));
	}]
	take:1]
	flattenMap: ^(id value){

digal / gist:4060940

Created November 12, 2012 18:15

gistio test

aaa

digal / gist:2380123

Created April 13, 2012 20:52

hello world program on iDCPU-16

	UInt16 program[] = {
	SET \| X << 4 \| 0x2A << 10, //SET X, 11
	ADD \| X << 4 \| NW << 10, VMEM_DISPLAY_START + 326, //ADD x, VMEM + 32 6
	SET \| Y << 4 \| 0x2D << 10, //SET Y, :data
	IFE \| MEM_Y << 4 \| 0x20 << 10, //IFE [X], 20
	SET \| PC << 4 \| 0x2C << 10, //JMP :loop
	SET \| MEM_X << 4 \| MEM_Y << 10, //SET [Y], [X]
	BOR \| MEM_X << 4 \| NW << 10, 0x0F00, //BOR [Y], 0x0F00 ; set char color
	ADD \| X << 4 \| 0x21 << 10, //ADD X, 1
	ADD \| Y << 4 \| 0x21 << 10, //ADD Y, 1

digal / turtle

Created December 18, 2011 20:39

Solution for http://www.kurilo.su/programmers/

	if (direction == '') {
	direction = 'east';
	}
	var dirs;
	var look = function (dir) {
	if (dir == 'north') return north;
	else if (dir == 'south') return south;
	else if (dir == 'east') return east;
	else if (dir == 'west') return west;
	}

	UInt16 program[] = {
	SET \| X << 4 \| 0x2A << 10, //SET X, 11
	ADD \| X << 4 \| NW << 10, VMEM_DISPLAY_START + 326, //ADD x, VMEM + 32 6
	SET \| Y << 4 \| 0x2D << 10, //SET Y, :data
	IFE \| MEM_Y << 4 \| 0x20 << 10, //IFE [X], 20
	SET \| PC << 4 \| 0x2C << 10, //JMP :loop
	SET \| MEM_X << 4 \| MEM_Y << 10, //SET [Y], [X]
	BOR \| MEM_X << 4 \| NW << 10, 0x0F00, //BOR [Y], 0x0F00 ; set char color
	ADD \| X << 4 \| 0x21 << 10, //ADD X, 1
	ADD \| Y << 4 \| 0x21 << 10, //ADD Y, 1

Yuri Buyanov digal