U:RDoc::TopLevel[ iI"lib/rouge/demos/racket:ETcRDoc::Parser::Simpleo:RDoc::Markup::Document: @parts[o:RDoc::Markup::Paragraph;[I"#lang racket;To:RDoc::Markup::BlankLineo; ;[I"-;; draw a graph of cos and deriv^3(cos) ;TI"(require plot) ;TI"(define ((deriv f) x);To:RDoc::Markup::Verbatim;[I"*(/ (- (f x) (f (- x 0.001))) 0.001)) ;T: @format0o; ;[I"4(define (thrice f) (lambda (x) (f (f (f x))))) ;TI"5(plot (list (function ((thrice deriv) sin) -5 5);To; ;[I")(function cos -5 5 #:color 'blue))) ;T; 0o; ;[I"!;; Print the Greek alphabet ;TI"(for ([i (in-range 25)]);To; ;[I"(displayln ;TI" (integer->char ;TI"' (+ i (char->integer #\u3B1))))) ;T; 0o; ;[I";; An echo server ;TI"*(define listener (tcp-listen 12345)) ;TI"(let echo-server ();To; ;[ I"4(define-values (in out) (tcp-accept listener)) ;TI"(thread (λ () ;TI"# (copy-port in out) ;TI"* (close-output-port out))) ;TI"(echo-server));T; 0: @file@:0@omit_headings_from_table_of_contents_below0