Stephen De Gabrielle spdegabrielle

## d3.min.js
!function(){function n(n,t){return t>n?-1:n>t?1:n>=t?0:0/0}function t(n){return null!=n&&!isNaN(n)}function r(n){return{left:function(t,r,e,u){for(arguments.length<3&&(e=0),arguments.length<4&&(u=t.length);u>e;){var i=e+u>>>1;n(t[i],r)<0?e=i+1:u=i}return e},right:function(t,r,e,u){for(arguments.length<3&&(e=0),arguments.length<4&&(u=t.length);u>e;){var i=e+u>>>1;n(t[i],r)>0?u=i:e=i+1}return e}}}function e(n){return n.length}function u(n){for(var t=1;n*t%1;)t*=10;return t}function i(n,t){try{for(var r in t)Object.defineProperty(n.prototype,r,{value:t[r],enumerable:!1})}catch(e){n.prototype=t}}function o(){}function a(n){return sa+n in this}function c(n){return n=sa+n,n in this&&delete this[n]}function s(){var n=[];return this.forEach(function(t){n.push(t)}),n}function l(){var n=0;for(var t in this)t.charCodeAt(0)===la&&++n;return n}function f(){for(var n in this)if(n.charCodeAt(0)===la)return!1;return!0}function h(){}function g(n,t,r){return function(){var e=r.apply(t,arguments);return e===t?n:e}}function p(n,

## tf-idf.rkt
#lang racket
(require unstable/dict)
(provide main)

;; Set[String]
(define stopwords (list->set (file->lines "./stopwords.txt")))

;; String -> List[String]
(define (tokenize raw-text) ;; Lowercases and splits on non-letters, non-numbers.
  (filter-not (λ (e) (set-member? stopwords e))

## timer.rkt
#lang racket/gui

; DrRacket, version 5.2.1
; 情報科学類ソフトウェアサイエンス主専攻実験
; M.NAKAJIMA
; 2012/06/29

; Create a window and show message.
(define frame (new frame% [label "Timer"]))
(define msg (new message% [parent frame]

## copy-paste.rkt
#lang racket/gui
(require framework) ; for keymap:get-editor

(define keymap (keymap:get-editor))

#| ; Or define them yourself:

(define keymap (new keymap%))

(add-text-keymap-functions keymap)

## daylang.rkt
#lang s-exp syntax/module-reader
(submod "daylang.rkt" semantics)
#:read my-read
#:read-syntax my-read-syntax

(define (my-read in) (syntax->datum (my-read-syntax #f in)))

(define (my-read-syntax src in)
  (define line (read-line in))
  (if (eof-object? line)

## daylang.rkt
#lang s-exp syntax/module-reader
(submod "daylang.rkt" semantics)
#:read my-read
#:read-syntax my-read-syntax

(define (my-read in) (syntax->datum (my-read-syntax #f in)))

(define (my-read-syntax src in)
  (define line (read-line in))
  (if (eof-object? line)

## index.html
<!DOCTYPE html>
<html>
  <head>
    <meta http-equiv="Content-type" content="text/html; charset=utf-8">
    <title>Testing Pie Chart</title>
   <!--<script type="text/javascript" src="d3/d3.v2.js"></script>-->
    <script src="http://d3js.org/d3.v2.js"></script>
	<!-- Note: I made good use of the sample code provided by the D3JS community and extended it to fit my needs to create this simple dashboard -->
    <style type="text/css">

## assignment.tex
\documentclass{ou-assignment}

\student{My Name}
\email{me@example.net}
\identifier{B1234567}
\course{M248}
\tma{1}
\tmapart{1}
\date{January 20, 2011}

## rpn.rkt
#lang racket

(require syntax/strip-context)

; A '#lang reader' language must provide read and read-syntax, which return a module form

; The idea is that "3 4 +:2 7 eq?:2" gets turned into '(module anything racket (eq? (+ 3 4) 7))

(provide (rename-out [rpn-read read]
                     [rpn-read-syntax read-syntax]))

## ami.rkt
#lang racket/base

(require racket/tcp racket/async-channel racket/match racket/function)

(define-struct ami [input-port
                    output-port thread
                    request-channel
                    response-channel
                    event-channel
                    [dead? #:mutable]]
	#lang racket
	(require unstable/dict)
	(provide main)

	;; Set[String]
	(define stopwords (list->set (file->lines "./stopwords.txt")))

	;; String -> List[String]
	(define (tokenize raw-text) ;; Lowercases and splits on non-letters, non-numbers.
	(filter-not (λ (e) (set-member? stopwords e))
	#lang racket/gui

	; DrRacket, version 5.2.1
	; 情報科学類ソフトウェアサイエンス主専攻実験
	; M.NAKAJIMA
	; 2012/06/29

	; Create a window and show message.
	(define frame (new frame% [label "Timer"]))
	(define msg (new message% [parent frame]
	#lang racket/gui
	(require framework) ; for keymap:get-editor

	(define keymap (keymap:get-editor))

	#\| ; Or define them yourself:

	(define keymap (new keymap%))

	(add-text-keymap-functions keymap)
	#lang s-exp syntax/module-reader
	(submod "daylang.rkt" semantics)
	#:read my-read
	#:read-syntax my-read-syntax

	(define (my-read in) (syntax->datum (my-read-syntax #f in)))

	(define (my-read-syntax src in)
	(define line (read-line in))
	(if (eof-object? line)
	<!DOCTYPE html>
	<html>
	<head>
	<meta http-equiv="Content-type" content="text/html; charset=utf-8">
	<title>Testing Pie Chart</title>
	<!--<script type="text/javascript" src="d3/d3.v2.js"></script>-->
	<script src="http://d3js.org/d3.v2.js"></script>
	<!-- Note: I made good use of the sample code provided by the D3JS community and extended it to fit my needs to create this simple dashboard -->
	<style type="text/css">
	\documentclass{ou-assignment}

	\student{My Name}
	\email{me@example.net}
	\identifier{B1234567}
	\course{M248}
	\tma{1}
	\tmapart{1}
	\date{January 20, 2011}
	#lang racket

	(require syntax/strip-context)

	; A '#lang reader' language must provide read and read-syntax, which return a module form

	; The idea is that "3 4 +:2 7 eq?:2" gets turned into '(module anything racket (eq? (+ 3 4) 7))

	(provide (rename-out [rpn-read read]
	[rpn-read-syntax read-syntax]))
	#lang racket/base

	(require racket/tcp racket/async-channel racket/match racket/function)

	(define-struct ami [input-port
	output-port thread
	request-channel
	response-channel
	event-channel
	[dead? #:mutable]]