Mike Bridge mikebridge

## rspec_formatter_for_emacs.rb
require 'rspec/core/formatters/progress_formatter'

# Example of a formatter with custom bactrace printing. Run me with:
# ruby bin/spec xxxxx.rb -r ./test/rspec_formatter_for_emacs.rb -f CustomFormatter
class CustomFormatter < RSpec::Core::Formatters::ProgressFormatter
  def backtrace_line(line)
    return nil if configuration.cleaned_from_backtrace?(line)
    str = line.gsub(/([^:]*\.rb):([0-9]+):in /) do
      path   = "#{$1}"
      lineno = "#{$2}"

## pandora.coffee
# Chat with hubie.
#
# hubie <anything>
#
# don't forget to set HUBOT_PANDORA_BOTID = <botid>

QS = require "querystring"

module.exports = (robot) ->

## assignment_1.clj
(ns codelesson.assignment-1)

;; Write a function called map-while which accepts a function f, a sequence s, and a predicate pred. When applied, it collects the results of applying f to s as long as applying pred to elements returns true.

(defn map-while [f s pred]
  (map f (take-while pred s)))

## assignment_2.clj
;; ... Given a bunch of dollar bills, in how many ways can they be broken into coins?
;;
;; ======================
;; Algorithm
;;
;; For each coin, calculate a set of multiples from zero to the largest
;; number which is less than or equal to the dollar-value goal.  Find
;; the combinations, choosing one multiple from each set, which total to
;; the goal.
;;

## assignment_3.clj
(ns codelesson.assignment-3)

(defn match-element
  [pattern-el data-el]
  {:pre  [(not (coll? pattern-el)) ]
   :post [(or (true? %) (false? %))] }
  (or
   (= pattern-el data-el)
   (= '? pattern-el)))

## soundcloud_oauth2_user_agent_authentication_flow_demo.html
<!DOCTYPE html>

<html lang="en">
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    <title>SoundCloud OAuth 2 User Agent Authentication Flow Demo</title>
    <script type="text/javascript" charset="utf-8" src="javascript/jquery-1.4.2.js"></script>
    <script type="text/javascript" charset="utf-8">
      $(function () {
        var extractToken = function(hash) {

## assignment_4.clj
(ns codelesson.assignment-4
  (:require [clojure.string :as str]))

(defn rotate-left [current-dir]
  {:pre  [(char? current-dir)]}
  ((apply hash-map (seq "NWWSSEEN")) current-dir))

(defn rotate-right [current-dir]
  {:pre  [(char? current-dir)]}
  ((apply hash-map (seq "NEESSWWN")) current-dir))

## assignment_5.clj
(ns codelesson.assignment-5
  (:require [clojure.string :as str]))

;; util

(defn log [s]
  (println s))

;; delay a function for a random number of milliseconds
(defn wait-and-call [f]

## assignment_6.clj
(ns codelesson.assignment-6
  (:require [clojure.string :as str])
  (:import [org.joda.time Years DateTime])
  (:import [java.text NumberFormat]))

;; utils

(defn account-logger [key ref old new]
;;  (println (str "ACCOUNTS " key "\n WAS:" old "\n NOW:" new "END"))
)

## JAccount.java
package codelesson.assignment8;

import java.math.BigDecimal;
import org.joda.time.DateTime;

public class JAccount {

    public enum JAccountType { CHEQUING, SAVINGS, MONEYMARKET };

    private DateTime _dateCreated;
	require 'rspec/core/formatters/progress_formatter'

	# Example of a formatter with custom bactrace printing. Run me with:
	# ruby bin/spec xxxxx.rb -r ./test/rspec_formatter_for_emacs.rb -f CustomFormatter
	class CustomFormatter < RSpec::Core::Formatters::ProgressFormatter
	def backtrace_line(line)
	return nil if configuration.cleaned_from_backtrace?(line)
	str = line.gsub(/([^:]*\.rb):([0-9]+):in /) do
	path = "#{$1}"
	lineno = "#{$2}"
	# Chat with hubie.
	#
	# hubie <anything>
	#
	# don't forget to set HUBOT_PANDORA_BOTID = <botid>

	QS = require "querystring"

	module.exports = (robot) ->
	(ns codelesson.assignment-1)

	;; Write a function called map-while which accepts a function f, a sequence s, and a predicate pred. When applied, it collects the results of applying f to s as long as applying pred to elements returns true.

	(defn map-while [f s pred]
	(map f (take-while pred s)))
	;; ... Given a bunch of dollar bills, in how many ways can they be broken into coins?
	;;
	;; ======================
	;; Algorithm
	;;
	;; For each coin, calculate a set of multiples from zero to the largest
	;; number which is less than or equal to the dollar-value goal. Find
	;; the combinations, choosing one multiple from each set, which total to
	;; the goal.
	;;
	(ns codelesson.assignment-3)

	(defn match-element
	[pattern-el data-el]
	{:pre [(not (coll? pattern-el)) ]
	:post [(or (true? %) (false? %))] }
	(or
	(= pattern-el data-el)
	(= '? pattern-el)))
	<!DOCTYPE html>

	<html lang="en">
	<head>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
	<title>SoundCloud OAuth 2 User Agent Authentication Flow Demo</title>
	<script type="text/javascript" charset="utf-8" src="javascript/jquery-1.4.2.js"></script>
	<script type="text/javascript" charset="utf-8">
	$(function () {
	var extractToken = function(hash) {
	(ns codelesson.assignment-4
	(:require [clojure.string :as str]))

	(defn rotate-left [current-dir]
	{:pre [(char? current-dir)]}
	((apply hash-map (seq "NWWSSEEN")) current-dir))

	(defn rotate-right [current-dir]
	{:pre [(char? current-dir)]}
	((apply hash-map (seq "NEESSWWN")) current-dir))
	(ns codelesson.assignment-5
	(:require [clojure.string :as str]))

	;; util

	(defn log [s]
	(println s))

	;; delay a function for a random number of milliseconds
	(defn wait-and-call [f]
	(ns codelesson.assignment-6
	(:require [clojure.string :as str])
	(:import [org.joda.time Years DateTime])
	(:import [java.text NumberFormat]))

	;; utils

	(defn account-logger [key ref old new]
	;; (println (str "ACCOUNTS " key "\n WAS:" old "\n NOW:" new "END"))
	)
	package codelesson.assignment8;

	import java.math.BigDecimal;
	import org.joda.time.DateTime;

	public class JAccount {

	public enum JAccountType { CHEQUING, SAVINGS, MONEYMARKET };

	private DateTime _dateCreated;