DRMacIver’s gists

DRMacIver / group_by_stemming.rb

Created January 26, 2009 23:51

	require "rubygems"
	require "lingua/stemmer"

	stemmer = Lingua::Stemmer.new

	tag_counts = {}
	STDIN.lines.each{\|l\| c, t = l.split; tag_counts[t.strip] = c.to_i }

	duplicates = Hash.new{\|h, k\| h[k] = []}
	tag_counts.keys.each{\|k\| duplicates[k.split("_").map{\|x\| stemmer.stem(x)}] << k }

DRMacIver / group_by_spacing.rb

Created January 26, 2009 23:52

	tag_counts = {}
	STDIN.lines.each{\|l\| c, t = l.split; tag_counts[t.strip] = c.to_i }
	duplicates = Hash.new{\|h, k\| h[k] = []}
	tag_counts.keys.each{\|k\| duplicates[k.gsub(/-\|_/, "")] << k }
	duplicates.values.each{\|vs\| vs.sort!{\|x, y\| tag_counts[y] <=> tag_counts[x]} }

	new_tag_counts = {}
	duplicates.values.each{\|vs\| new_tag_counts[vs[0].gsub(/(_\|-)+/, "_")] = vs.map{\|v\| tag_counts[v]}.inject(0, &:+)}
	puts new_tag_counts.to_a.sort{\|x, y\| y[1] <=> x[1]}.map{\|t, c\| " #{c} #{t}" }

DRMacIver / remove_stopwords.rb

Created January 27, 2009 00:15

	require "set"

	stopwords = Set[*
	IO.read("smart.txt").lines.reject{\|x\| x =~ /^#/}.map(&:strip)
	]

	STDIN.lines.each do \|l\|
	c, t = l.split
	puts l unless stopwords.include? t.strip
	end

DRMacIver / remove_stopwords.rb

Created January 27, 2009 00:15

	require "set"

	stopwords = Set[*
	IO.read("smart.txt").lines.reject{\|x\| x =~ /^#/}.map(&:strip)
	]

	STDIN.lines.each do \|l\|
	c, t = l.split
	puts l unless stopwords.include? t.strip
	end

DRMacIver / pg.rb

Created January 28, 2009 21:14

	require "rubygems"
	require "sequel"

	DB = Sequel.postgres('citeulike', :host => 'localhost')

DRMacIver / main.lua

Created January 31, 2009 15:28

	function load()
	world = love.physics.newWorld(2000, 2000)
	world:setGravity(0, 50)
	ground = love.physics.newBody(world, 0, 0, 0)

	ground_shape = love.physics.newRectangleShape(ground, 400, 500, 600, 10)
	ground_shape:setData("Ground")

	body = love.physics.newBody(world, 400, 450)
	hector = love.physics.newRectangleShape(body, 0, 20, 40, 40)

DRMacIver / notwords

Created February 2, 2009 14:48

DRMacIver / Pearsons

Created February 12, 2009 23:43

	Let X1, ..., XN be Bernoulli(p)
	Let Y1, ..., YN be Bernoulli(q)

	X1, ..., XN, Y1, ..., YN are independent

	Let P be the pearsons product moment correlation coefficient of (X1, ..., XN) and (Y1, ..., YN). i.e. P is a random variable that measures the pearsons for some specific sample of the two.

	What is the distribution of P?

DRMacIver / agileosity.log

Created February 19, 2009 13:15

	13:10 < jsuereth> dibblego: Your post, as always, amuses me
	13:11 < DRMacIver> jsuereth: It is not for your amusification. That is a sign of your inherent
	dishonestiness with respect to the non-think of agileosity.
	13:11 < ijuma> hah
	13:12 < ricky_clarkson> The fact that you say agileosity means you recognise it as a concept.
	13:12 < ricky_clarkson> Can we eliza him? ;)
	13:13 < jsuereth> agileosity just made my word of the day
	13:13 < DRMacIver> I recognise it as a non-concept which the ignorant plebians who pretend they are
	"programmers" when they don't recognise the obvious concepts of catamorphic
	homogenisation mistakenly believe has sufficient internal consistency to qualify

DRMacIver / compiler file sizes

Created February 19, 2009 20:53

	tag_counts = {}
	STDIN.lines.each{\|l\| c, t = l.split; tag_counts[t.strip] = c.to_i }
	duplicates = Hash.new{\|h, k\| h[k] = []}
	tag_counts.keys.each{\|k\| duplicates[k.gsub(/-\|_/, "")] << k }
	duplicates.values.each{\|vs\| vs.sort!{\|x, y\| tag_counts[y] <=> tag_counts[x]} }

	new_tag_counts = {}
	duplicates.values.each{\|vs\| new_tag_counts[vs[0].gsub(/(_\|-)+/, "_")] = vs.map{\|v\| tag_counts[v]}.inject(0, &:+)}
	puts new_tag_counts.to_a.sort{\|x, y\| y[1] <=> x[1]}.map{\|t, c\| " #{c} #{t}" }

David R. MacIver DRMacIver