mklbtz

class AnyEnumerable
  include Enumerable

  def initialize(&each_impl)
    @each_impl = each_impl
  end

  def each(&block)
    @each_impl.call(&block)
  end

mklbtz

/// Useful for maintaining a strong reference to
/// something which would otherwise be deinitialized.
public final class Token<A> {
  public let id: A
  private let dispose: (A) -> Void

  /// Create a new token
  ///
  /// - Parameters:
  ///   - id: A unique identifier for this token.

mklbtz

import Darwin

extension RandomAccessCollection {
  // Fails if collection is larger than UInt32.max
  var randomIndex: Index {
    guard !isEmpty else { return endIndex }
    let fullDistance = UInt32(distance(from: startIndex, to: endIndex))
    let randomDistance = IndexDistance(arc4random_uniform(fullDistance))
    return index(startIndex, offsetBy: randomDistance)
  }

mklbtz

/// Useful as a type-safe String identifier for objects, records, etc.
/// Generic type A is the type of the object being "identified".
public struct Identifier<A>: Equatable, Hashable, Comparable {
  public let string: String

  public init(_ string: String) {
    self.string = string
  }

  public var hashValue: Int {

mklbtz

// A Number-like type that can represent algebraic expressions.
public enum Algebra {
  case scalar(Double)
  case variable(name: String, () -> Double)
  indirect case add(Algebra, Algebra)
  indirect case subtract(Algebra, Algebra)
  indirect case multiply(Algebra, by: Algebra)
  indirect case divide(Algebra, by: Algebra)
  indirect case magnitude(Algebra)
  indirect case raise(Algebra, toPower: Int)

mklbtz

# A Numeric-like class that can represent algebraic expressions.
# Uses typecases to define what operations are representable.
class Algebra
  include Enum

  # Represents number literals
  typecase :scalar, value: Numeric do
    def to_s
      value.to_s
    end

mklbtz

class Object
  # List Methods defined directly in the receiver's class.
  def my_methods
    methods_from(self.class)
  end

  # List Methods with names matching the regex.
  def methods_matching(regex)
    methods_where { |meth| regex.match(meth.name.to_s) }
  end

mklbtz

# A method for opening the `source_location`
# of a method or proc in your preferred editor.
# Depends on the presence of $EDITOR in your environment.
module OpenSource
  def open_source
    return false unless
      loc = source_location and
      loc.first != '(irb)'
    path = loc.join(':') # append the line number to the file path.
    system("eval \"$EDITOR #{path}\"")

mklbtz

module AutoRake
  require 'rake'
  Rails.application.load_tasks if Rake::Task.tasks.empty?

  def const_missing(const)
    mod = Module.new
    mod.extend AutoRake
    const_set(const, mod)
  end

mklbtz

require 'active_support'

module OptionSet
  extend ActiveSupport::Concern

  included do
    attr_reader :value
    include Comparable
    include Enumerable