o_0

Andy Weiss rokob

o_0

etrepum / MergeSort.hs

Created January 10, 2014 05:44

	module MergeSort (mergeSort) where
	-- \| Bottom-up merge sort.
	mergeSort :: Ord a => [a] -> [a]
	mergeSort = mergeAll . map (:[])
	where
	mergeAll [] = []
	mergeAll [xs] = xs
	mergeAll xss = mergeAll (mergePairs xss)

	mergePairs (a:b:xs) =

eirikb / imgur-oauth-test.html

Last active November 8, 2024 13:32

Post to imgur using oauth (api v3) on a static (no server) site

	<!DOCTYPE html>

	<html lang="en">
	<head>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
	<title>imgur oauth</title>
	<script src="http://code.jquery.com/jquery.min.js"></script>
	<script>
	$(function () {
	var extractToken = function(hash) {