bitemyapp

The Learning Haskell guide has been moved to a git repo to enable outside contribution

Find it here: https://github.com/bitemyapp/learnhaskell

thezerobit

:- use_module(library(clpfd)).

peano(N,z) :- N #= 0.
peano(N,s(PDec)) :-
        N #> 0,
        N - 1 #= NDec,
        peano(NDec, PDec).

% ?- peano(4, Q).
% Q = s(s(s(s(z)))) ;

igrigorik

alias gh="open \`git remote -v | grep [email protected] | grep fetch | head -1 | cut -f2 | cut -d' ' -f1 | sed -e's/:/\//' -e 's/git@/http:\/\//'\`"

wolever

#!/bin/bash
# Performs a "safe" merge, confirming the commits to be merged, the merge
# strategy, any conflicts, etc.
# Useage:
#     $ git safemerge master
#     Commits:
#      * bc911ef Fix bug in widget
#      * e80f8d1 Clean things up
#
#     Changes:

reiddraper

{-# LANGUAGE TemplateHaskell #-}

module Main
where

import System.Environment (getArgs)
import Data.ByteString.Char8 (pack)
import Control.Distributed.Process (say, Process, spawnLink, RemoteTable)
import Control.Distributed.Process.Node (newLocalNode, initRemoteTable, runProcess, localNodeId, LocalNode(..))
import Control.Distributed.Process.Internal.Types (NodeId(..))

hadley

library(httr)
library(digest)
library(XML)

s3_request <- function(verb, bucket, path = "/", query = NULL,
                       content = NULL, date = NULL) {
  list(
    verb = verb,
    bucket = bucket,
    path = path,

cemerick

;; ## Changes from cljs.repl.browser
;; 
;; * Multiple concurrent browser-REPLs can be safely used
;; * The browser-REPL's HTTP server is now always-on
;; * Each browser-REPL session supports a new top-level "entry" URL that
;;   can be used to easily start the REPL in a browser or other JS runtime
;;   (i.e. you don't need to have a separate webapp running to initiate the
;;    browser-REPL connection)
;; * The entry (and REPL) URLs are available in slots on the browser-REPL's
;;   environment, making it trivial to automate browser-REPL sessions

johnnyelwailer

angular.module('keyboard', [])
.factory('keyboardNavigation', function () {
    var keyboardContextStack = [];
    var navigatables = {};
    var activeIndex = 0;

    return {
        active: null,

        register: function (scope, events) {

app.cljs

(ns indexeddb.app                                                                                                                           
  (:require [goog.async.Deferred :as Deferred_]                                                                                             
            [indexeddb.core :refer [m-bind                                                                                                  
                                    -promise                                                                                                
                                    db-version                                                                                              
                                    create-object-store                                                                                     
                                    get-db]])                                                                                               
  (:require-macros [indexeddb.macros 

rtrcolin

// URL for Jira's REST API for issues
var getIssueURL = "https://[Your Jira host]/rest/api/2/issue/";

// Personally I prefer the script to handle request failures, hence muteHTTPExceptions = true
var fetchArgs = {
  contentType: "application/json",
  headers: {"Authorization":"Basic [Your BASE64 Encoded user:pass]"},
  muteHttpExceptions : true
};