 |
Main |
back | | [*]class (define class1% (class object% (super-new) (define/public func1 (lambda() (displayln "func1-1")(newline))))) (define sub-class% (class class1% (super-new) (define func1 (lambda() (displayln "func1-2"))) (override func1))) (send (new class1%) func1) (send (new sub-class%) func1) [*]struct (struct point (x y) #:inspector #f)(point 3 5)(point 3 5) (struct struct1(a b c g [d #:mutable]))(define s1(struct1 0 7 6 1 2)) (set-struct1-d! s1 8)(struct1-d s1) (struct struct2(a b [c #:auto]) #:auto-value 100) (define s2(struct2 1 2))(struct2-c s2) (struct struct3 (v1 v2) #:property prop:procedure (struct-field-index v1)) (define s3 (struct3 add1 100))(s3 100)(struct3-v2 s3) (struct struct4 (v1 v2) #:transparent) (equal? (struct4 1 2) (struct4 1 2)) (struct struct5 (v1 v2) #:prefab)(struct5? `#s(struct5 1 2)) (struct struct6 (v1 [v2 #:mutable]) #:prefab) (struct struct7 struct6 ([v1 #:auto]) #:prefab #:auto-value 100)(struct7 "s1" "s2") (struct struct8 (name) #:transparent #:guard (lambda (name type-name) (cond [(string? name)name][(symbol? name)(symbol->string name)] [else(error type-name "bad name: ~e" name)]))) (define s8(struct8 `abc))s8 [*]module >>main (require "data.rkt") (func 9) >>data.rkt (define func ...) (provide(all-defined-out)) (module m1 racket/base (define func (lambda(x)(odd? x))) (provide (all-defined-out))) (require `m1) (func 9) (module m2 racket/base (define reverse (lambda(ls) (cond[(null? ls)`()] [else(append(reverse(cdr ls)) (list(car ls)))]))) (provide reverse)) (require `m2) [*]unit(require racket/unit) (define-signature sig1(proc1 v1)) (define-signature sig2(v2)) (define-unit unit1@ (import) (export sig1) (define v1 9) (define proc1(lambda(x)(display x)))) (define-unit unit2@ (import sig1) (export sig2) (define v2 (proc1 v1))) (define-values/invoke-unit/infer unit1@) (proc1 9) [*]contract (provide (contract-out [v1 positive?])) (define v1 4567) (provide (contract-out [v2 (and/c number? positive?)])) (define v2 5678) [*]syntax (define-syntax-rule (syntax1 a) (display a))(syntax1 1) (define-syntax syntax2 (syntax-rules() [(syntax a)(display a)] [(syntax2 a b)(display (+ a b))]))(syntax2 456) (define-syntax syntax3 (syntax-id-rules(set!) [(set! syntax3 a)(display a)] [syntax3(display "")]))(set! syntax3 589) (define-syntax (syntax4 stx) (syntax-case stx () [(_ case1 case2) (with-syntax ([helper (printf"...")]) #`(begin (define (case1 x) (printf "~a" x)helper) (define (case2 x) (printf "~s" x)helper)))])) (syntax4 c1 c2) (c1 86) (define-syntax-rule (let: ([v r] ...) body ...) ((lambda (v ...) body ...) r ...)) (let: ([a 1] [b 2]) (+ a b)) (require (for-syntax syntax/parse)) [*]database (require db) (define db1(sqlite3-connect #:database `temporary #:mode `create)) (query-exec db1 "create table t1(id integer primary key,n varchar(50))") (query-exec db1 "insert into t1 values($1,$2)"0 "n1") (query-row db1 "select n from t1 where id = 0");value/list/rows (query-exec db1 "update t1 set id = 1 where id = 0") (query-exec db1 "delete from t1 where id > 0") [*]txt-file (define file(open-output-file "file.txt" #:exists `replace)) (define writeFile(lambda(txt)(write txt file))) (writeFile "txt") (close-output-port file) (define in (open-input-file "file.txt")) (define (readFile in)(printf "~s" (read in))) (readFile in) (close-input-port in) (file->string "txtDocumentsdrRacket.txt") [*]file/path (file-exists? path) (find-executable-path path) (file-or-directory-permissions path) (directory-list path) (current-directory) [*]gui (require racket/gui) (define frame (new frame%[label "testframe"][width 300][height 300])) (define menu-bar(new menu-bar%[parent frame])) (define menu(new menu%[label "menu"][parent menu-bar])) (define menu-item(new menu-item%[label "menu-item"][parent menu] [shortcut #A][shortcut-prefix (list `ctl)] [callback (lambda(menu-item event)(send dc set-text-foreground "red") (send dc draw-text "test" 5 5)(send dc draw-line 3 7 9 22))])) (define checkable-menu-item(new checkable-menu-item%[label "checkable"] [parent menu][shortcut #V][shortcut-prefix (list `ctl)][checked #t] [help-string "helpstring"] [callback (lambda(checkable event)(send frame set-label "text"))])) (define choice(new choice%[label "choice"][parent frame] [choices (list "1" "1" "1")] [callback (lambda(choice event) (send button set-label (format "~a"(send choice get-selection))))])) (define msg(new message%[parent frame][label "msg"][auto-resize #t])) (send msg set-label "neuer text") (send msg auto-resize) (define test(lambda(x)(display (+ 1 x)))) (send frame show #t) (send frame create-status-line) (send frame get-menu-bar) (define bitmap(read-bitmap "C:Usersimg.jpg")) (send frame set-icon bitmap) (send frame set-status-text "status-text") (send frame has-status-line?) (define button(new button%[label "button"][parent frame] [callback (lambda(button event)(send button set-label "settext"))])) (define canvas(new canvas%[parent frame])) (define dc(send canvas get-dc)) (define check1 #f) (define check-box(new check-box%[label "check"][parent frame] [callback (lambda(check event) (set! check1 (send check-box get-value))(display check1))])) (send check-box set-value #t) (define mouse-event(new mouse-event%[event-type `enter][x 5][y 0])) (define timer(new timer% [notify-callback (lambda()(display (send mouse-event button-down? `left)))])) (send timer start 100 #f) (begin (new popup-menu%[title "poptxt"] [popdown-callback (lambda(pop event)(test 5))])) (define radio-box(new radio-box%[label "radio"][choices `("1" "2" "3")] [callback (lambda(radio event) (display (send radio-box get-selection)))][parent frame])) (define combo-field(new combo-field%[label "radio"][choices `("1" "2" "3")] [callback (lambda(cfield event)(display (send combo-field get-value)))] [parent frame])) [*]draw (require racket/draw) (define target (make-bitmap 300 300)) (define dc (new bitmap-dc% [bitmap target])) (send dc draw-rectangle 0 10 30 10) (send dc draw-line 0 0 30 30) (send dc draw-line 0 30 30 0) (send dc erase) (send dc draw-rectangle 0 0 100 30) (define-values (w h d a) (send dc get-text-extent "text")) (send dc draw-text "text" (/ (- 100 w) 2) (/ (- 30 h) 2)) (send target save-file "img1.png" `png) [*]fractal >> quelle (require htdp/draw lang/posn) (define LIMIT 3) (start 399 399) (draw-solid-line (make-posn 100 100)(make-posn 100 200) `blue) (define draw-square(lambda(a b c d) (and (draw-solid-line a b `blue) (draw-solid-line b c `darkblue) (draw-solid-line c d `aquamarine) (draw-solid-line d a `skyblue)))) (draw-square (make-posn 100 100)(make-posn 100 200)(make-posn 200 200)(make-posn 200 100)) (define angular-displacement(lambda(angle side point) (make-posn(+ (posn-x point)(* side(cos(* 2 pi (/ angle 360))))) (+ (posn-y point)(* side(sin(* 2 pi (/ angle 360)))))))) (define pythagtree(lambda(a side angle) (cond[(< side LIMIT)#t] [else (and (draw-square a (angular-displacement(- angle 90)side a) (angular-displacement(- angle 45)(* (sqrt 2)side)a) (angular-displacement(+ angle 0)side a)) (pythagtree (angular-displacement(- angle 90)side a) (/ side (sqrt 2)) (- angle 45)) (pythagtree (angular-displacement (- angle 71.5)(*(* 1.11925(sqrt 2))side)a) (/ side (sqrt 2)) (+ angle 45)))]))) (start 1000 1000) [*]racketSource in subdirs for([path(in-directory)]#:when (regexp-match? #rx"[.]$" path))(printf "~a" path)) [*]basic-auth #lang web-server/insta (define (start req) (match (request->basic-credentials req) [(cons user pass) (response/xexpr `(html (head (title "Basic Auth Test Panel")) (body (h1 "User: " ,(bytes->string/utf-8 user)) (h1 "Pass: " ,(bytes->string/utf-8 pass)))))] [else (response 401 #"Unauthorized" (current-seconds) TEXT/HTML-MIME-TYPE (list (make-basic-auth-header (format "Basic Auth Test: ~a" (gensym)))) void)])) [*]write html (require xml) (define web1 xml-box...") (define web01-xml (xexpr->xml web1)) (with-output-to-file "C:pathTempweb01.html" (lambda() (write-xml/content web1-xml)) #:exists `replace) [*]browser (require browser) (define hyper-frame (new hyper-frame% [label "Browser"] [start-url "http://www.new-lv.de/"] [width 400][height 300])) (send hyper-frame show #t) [*]xml (require xml) (define web1 ;menu -> einf?gen -> xml-kasten einf?gen xml-kasten>>>[xml-box some text]) (write-xml/content(xexpr->xml web1)) (with-output-to-file "C:Users/User/Desktop/web1.html" (lambda() (write-xml/content(xexpr->xml web1)))#:exists `replace) (write-xml (with-input-from-file "C:Users/User/Desktop/web1.html" read-xml)) (require browser) (open-url(string-append "file:" (path->string(build-path "C:Users/User/Desktop/web1.html")))) [*]servlet #lang web-server/insta (require web-server/web-server web-server/servlet-env) (define (start req)(response/xexpr `(html (head (title "Hello world!"))(body (p "Hey out there!"))))) (serve/servlet start #:port 8888) [*]html-code->string (require net/url) (define text (regexp-match #px".*" (get-pure-port (string->url "new-lv.de")))) [*]subprocess (define-values (p stdout stdin stderr) (subprocess #f #f #f "C:/Program Files (x86)/../*.exe" "-w")) [*]shell (shell-execute #f "http://racket-lang.org" "" (current-directory) `sw_shownormal) [*]plot (require plot) (plot (function sin -5 5)) (plot (function sin) #:x-min -5 #:x-max 5 #:y-min -5 #:y-max 5) (plot (lines (map vector xs (map sqr xs)))) [*]thread (thread (lambda() (letrec ([loop (lambda() (sleep 4.0) (loop))]) (loop)))) [*]engine (require racket/engine) (define engine: (engine (lambda (_)(let loop ()(sleep 1)(loop))))) (engine-run(expt 100 100)engine:)
|
|