tfausak

http://en.wikipedia.org/wiki/Command_pattern

• https://github.com/orgsync/active_interaction
• https://github.com/collectiveidea/interactor
• https://github.com/cypriss/mutations
• https://github.com/karmajunkie/imperator
• https://github.com/cjohansen/use_case

tfausak

# coding: utf-8

require 'rspec' # 2.14.1

# NOTE: "include?" and "included_modules" are for modules only.
CLASS_METHODS = %i(
  !=
  <
  <=
  <=>

tfausak

{-# LANGUAGE ForeignFunctionInterface #-}

module Main (main) where

import Foreign.C.Types (CDouble (..))

foreign import ccall safe "math.h sin" c_sin :: CDouble -> CDouble
foreign import ccall safe "public.h square" c_square :: CDouble -> CDouble
foreign import ccall safe "private.h half" c_half :: CDouble -> CDouble

tfausak

// http://taylor.fausak.me/2014/04/28/cloning-2048-in-haskell/

import func Cocoa.rand

/*
Utilities
*/

// TODO: Can this be generalized to allow anything addable?
func combine(array: Int[]) -> Int[] {

tfausak

import Data.List (group)
import Data.Maybe (isJust)
import Data.Monoid ((<>))

empty :: Int -> [Maybe Int]
empty = flip replicate Nothing

shift :: [Maybe Int] -> [Maybe Int]
shift v = take n (v' <> empty n)
  where

tfausak

Keybase proof

I hereby claim:

• I am tfausak on github.
• I am taylorfausak (https://keybase.io/taylorfausak) on keybase.
• I have a public key whose fingerprint is 1074 397C 56E3 4F1B FBDA 9D31 9C45 BE88 5CC1 680A

To claim this, I am signing this object:

tfausak

Converting a binary string to a number

Haskell

https://github.com/tfausak/exercism-solutions/blob/master/haskell/binary/Binary.hs

module Binary
( toDecimal
) where

tfausak

class Run
  attr_reader :state
  attr_reader :exception
  attr_reader :time

  def initialize(state, exception = nil, time = nil)
    @state = state
    @exception = exception
    @time = time.nil? ? Time.now : time
  end

tfausak

-- Purely Functional Data Structures
-- Exercise 5.1

module Main
  ( Deque (Deque)
  , empty
  , isEmpty
  , cons
  , head
  , tail

tfausak

# coding: utf-8

require 'stringio'

module Erudite
  class Outcome
    attr_reader :result
    attr_reader :output

    def initialize(result, output)