| #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)) |
This scatterplot is constructed from a TSV file storing the dimensions of sepals and petals of various iris flowers. The chart employs conventional margins and a number of D3 features:
| \documentclass{ou-assignment} | |
| \student{My Name} | |
| \email{[email protected]} | |
| \identifier{B1234567} | |
| \course{M248} | |
| \tma{1} | |
| \tmapart{1} | |
| \date{January 20, 2011} |
| #lang racket | |
| ; https://gist.github.com/joskoot/797a9e7d2276cf59d747 | |
| ; TODO: Put the documentation in a scrbl file. | |
| #|==================================================================================================== | |
| EMBEDDING INFIX NOTATION IN RACKET | |
| ------------------------------------------------------------------------------------------------------ | |
| syntax (infix infix-expr) => prefix-expr -> value of the prefix-expr = value of the infix-expr. | |
| syntax ($ infix-expr) => prefix-expr -> value of the prefix-expr = value of the infix-expr. |
| #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"> |
| #lang racket | |
| (provide tweet!) | |
| (require (only-in racket/random crypto-random-bytes) | |
| json | |
| net/url | |
| (only-in net/uri-codec [uri-unreserved-encode %]) | |
| web-server/stuffers/hmac-sha1 | |
| (only-in net/base64 base64-encode)) | |
| ;; For description, see: |
| #lang racket/base | |
| (require racket/class json net/url racket/port net/base64 racket/match | |
| racket/format racket/trait net/head framework/preferences) | |
| (provide client%) | |
| (define-local-member-name login) | |
| (define-local-member-name password) | |
| (preferences:set-default 'github:oauth-token #f (λ _ #t)) |
| ;; the gaussian filter used in the racket blur. | |
| ;; boosted center value by 1/1000 to make sure that whites stay white. | |
| (define filter '[[0.011 0.084 0.011] | |
| [0.084 0.620 0.084] | |
| [0.011 0.084 0.011]]) | |
| ;; racket-blur: blur the image using the gaussian filter | |
| ;; number number list-of-bytes -> vector-of-bytes | |
| (define (racket-blur width height data) | |
| (define data-vec (list->vector data)) |
| #lang racket/base | |
| (provide ) | |
| (require ffi/unsafe) | |
| (require ffi/unsafe/define) | |
| (require ffi/unsafe/cvector) | |
| (require ffi/vector) | |
| (define highgui-lib (ffi-lib "libopencv_highgui" '("2.4" #f))) |