kputnam

{-# LANGUAGE OverloadedStrings #-}

module Example
  ( Term(..)
  , pretty
  , parse
  , testReparse
  , normalize
  ) where

kputnam

module L
  ( L
  , empty
  , single
  , wrap
  , unwrap
  , cons
  , append
  , map
  , foldl

kputnam

DependencyDetection.defer do
  @name = :net

  depends_on do
    defined?(HTTPI)
  end

  executes do
    NewRelic::Agent.logger.debug "Installing HTTPI instrumentation"
  end

kputnam

#
# I'd prefer to add a parameter to ActiveRecord::Base.create (and .save)
# which would look like this:
#
#   user.save(on_duplicate_key_update: true)
#
#   User.create(attrs, on_duplicate_key_update: %w(updated_at))
#
# But those methods are already overloaded and it seems like any methods,
# even new ones we could add, would require some painful plumbing to pass

kputnam

var u = (function() {
  var id       = function(x) { return x; }
    , single   = function(x) { return [x]; }
    , constant = function(x) { return function() { return x; }};

  var curried = function(f, n, args) {
    return (args.length >= n)
      ? f.apply(null, args)
      : function() { return curried(f, n, args.concat(slice(arguments))); }; };

kputnam

# Syntax sugar, more or less: wrap each monadic action with
# another function that binds to the next action `k`.
####################################################################
confirm_ = (msg, k) ->
  bind confirm(msg), k

alert_ = (msg, k) ->
  bind alert(msg), k

prompt_ = (msg, detent = "", k) ->

kputnam

# Actions
###################################################################

put = (n) -> (state, count) ->
  {state: n, value: null, count: count + 1}

get = (state, count) ->
  {state: state, value: state, count: count}

update = (f) -> (state, count) ->

kputnam

Prelude Test.QuickCheck> let f n = case span (/= '.') (show n) of (a,b) -> (length a, length b)
Prelude Test.QuickCheck> quickCheck (\x -> collect (f x) $ x /= 0.04882)
+++ OK, passed 100 tests:
28% (3,15)
15% (2,16)
15% (2,15)
 8% (4,15)
 8% (3,16)
 5% (3,14)
 5% (1,16)

kputnam

set wrap          " changes text display, doesn't change the buffer
set linebreak     " break at word boundaries, instead of mid-word

" gq will reformat text to wrap at boundaries

set textwidth=78  " wrap text as its being typed
set wrapmargin=0

kputnam

/**
 * Executes no more than maxConcurrency workers at once and executes the
 * given afterFinish callback when all workers have completed. Workers are
 * expected to signal when they are finished.
 *
 * @example
 *
 *   WorkerGroup(
 *     [ function(whenDone) { $.ajax({url: 'http://jquery.com/a/', error: whenDone, success: whenDone}); }
 *     , function(whenDone) { $.ajax({url: 'http://jquery.com/b/', error: whenDone, success: whenDone}); }