jimweirich

# This script should be run on the drone.
# Change the IP address to be difference 
# for each drone on the same ad-hoc network
#
killall udhcpd
ifconfig ath0 down
iwconfig ath0 mode ad-hoc essid ardrone2_070401 channel auto commit
ifconfig ath0 192.168.1.100 netmask 255.255.255.0 up

jimweirich

; Church Numerals in Clojure
;
; Church numerals use anonymous functions to represent numbers.
;
; ((zero f) x) -- returns x
; ((one f)  x) -- return (f x)
; ((two f)  x) -- return (f (f x))
; ...

(def zero (fn [f] (fn [x] x)))

jimweirich

Allocation = Struct.new(:project, :person, :start, :finish) do
  include Comparable

  def mergable_with?(other)
    if start > other.start
      other.mergable_with?(self)
    else
      same_assignment?(other) &&
        finish >= other.start - 1
    end

jimweirich

gem 'minitest'
require 'minitest/autorun'
require './beer_song'

class BeerSongTest < Minitest::Test

  V8 =
    "8 bottles of beer on the wall, 8 bottles of beer.\n" +
    "Take one down and pass it around, 7 bottles of beer on the wall.\n"

jimweirich

def new
  allocate.tap { |obj| obj.initialize }
end

jimweirich

def foo(a=:default, b)
  puts "a=#{a}, b=#{b}"
end

foo(:value)
foo(:x, :y)

jimweirich

def project(name, &block)
  Project.new(name, &block)
end

class Project
  def initialize(name, &block)
    @name = name
    @context = eval("self", block.binding)
    instance_eval(&block) if block_given?

jimweirich

$ rspec xx_spec.rb 
....

Finished in 0.00287 seconds
4 examples, 0 failures

jimweirich

  def test_spy
    d = flexmock(f: :ok)
    assert_equal :ok, d.f("Woof",2)
    assert_spy_called d, :f, String, Integer
  end

jimweirich

SOURCE: defined?(a)
RESULT:
[:program, [:stmts_add, [:stmts_new], [:defined, [:@rparen, ")", [1, 10]]]]]

SOURCE: "my name is #{name}"
RESULT:
[:program,
 [:stmts_add,
  [:stmts_new],
  [:string_literal,