threeifbywhiskey’s gists

threeifbywhiskey / monty_hall.rb

Created August 18, 2014 03:37

Monty Hall Problem simulation

	def monty_hall
	doors = ['goat', 'stupid goat', 'car']

	doors.delete choice = doors.sample
	doors.delete reveal = doors.grep(/goat/).sample

	puts 'Stay or switch?' until %w[stay switch].include? action = gets.chomp

	choice = doors.last if action == 'switch'

threeifbywhiskey / brainfuck.asm

Created August 9, 2014 00:43

This is a brainfuck interpreter written in a pseudo-assembly language which maps onto Whitespace's instructions.

	; brainfuck interpreter in Whitespace assembly

	; To facilitate the interpretation of "literate" brainfuck, consecutive newlines
	; are used to signal the end of program input. Thus, the previous character must
	; be remembered. Also, non-brainfuck characters must be passed over silenty. The
	; heap is used for these processes to avoid having to juggle the stack too much.
	push ,
	push .
	push <
	push >

threeifbywhiskey / braille.c

Created August 1, 2014 20:01

This is an interpreter for the Braille esolang: http://esolangs.org/wiki/Braille

	#include <stdio.h>
	#include <stdlib.h>

	unsigned char convert(unsigned char c)
	{
	return (c & 0x40) << 1
	\| (c & 0x07) << 4
	\| (c & 0x80) >> 4
	\| (c & 0x38) >> 3;
	}

threeifbywhiskey / com.aor.droidedit.pro_preferences.xml

Created March 26, 2014 01:38

Solarized color scheme for DroidEdit (Pro).

	<map>
	<boolean name="lineWrap" value="true"/>
	<boolean name="alternativeActionBar" value="true"/>
	<boolean name="actionBar" value="true"/>
	<boolean name="rootMode" value="false"/>
	<string name="theme.0.background">#ff002b36</string>
	<boolean name="actionBarTabs" value="true"/>
	<string name="theme.0.type">#ffb58900</string>
	<boolean name="bugsense" value="true"/>
	<string name="lineBreak">linux</string>

threeifbywhiskey / odd_syntax_error.rb

Created March 20, 2014 09:02

Apparently to_proc'd lambdas can't be contained within arrays?

	class Object
	def >> _
	_.send *self
	end
	end

	['get', '/', &-> { ['haml', 'to_sym' >> 'index'] >> self }] >> self

threeifbywhiskey / reverse_send_meta.rb

Created March 19, 2014 20:08

	module ReverseSend
	def self.extended klass
	klass.send(:define_method, '>>') do \|obj\|
	obj.send *self
	end
	end
	end

	class String
	extend ReverseSend

threeifbywhiskey / rot13_church.rb

Created March 19, 2014 18:32

This is a Church-enabled script that prints the ROT-13 transformation of each line of standard input.

threeifbywhiskey / 154i_lambdas.rb

Created March 19, 2014 17:56

This is a solution to /r/dailyprogrammer's Intermediate challenge #154 written almost entirely with numbers and lambdas.

	MAP = -> coll, &fn {
	coll == [] ? [] : [fn[coll[0]]] + MAP[coll[1..-1], &fn]
	}

	SIZE = -> coll {
	coll == [] \|\| coll == '' ? 0 : 1 + SIZE[coll[1..-1]]
	}

	FILTER = -> coll, &fn {
	coll == [] ? [] : (fn[coll[0]] ? [coll[0]] : []) + FILTER[coll[1..-1], &fn]

threeifbywhiskey / 154i_church.rb

Created March 19, 2014 17:54

This is a solution to /r/dailyprogrammer's Intermediate challenge #154 written using the Church gem.

	require 'church'
	include Church

	GORELLIAN = -> n, alphabet, words {
	alphabet = MAP[CHARS[alphabet], &-> a { ORD[a] \| 32 }]

	EACH[SORT_BY[words, &-> w {MAP[CHARS[w],
	&-> c { INDEX[alphabet, ORD[c] \| 32] }] }], &PUTS]
	}

threeifbywhiskey / gorellian_alphabet_sort.c

Created March 19, 2014 08:21

This is a solution to /r/dailyprogrammer's Intermediate challenge #154, Gorellian Alphabet Sort.

	#include <stdio.h>
	#include <stdlib.h>
	#include <string.h>

	#define MAXWORD 80
	char alphabet[27];

	int gorellian_strcmp(const void va, const void vb)
	{
	size_t i;

Dorien Snake threeifbywhiskey