suzanne.soy/remix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

experiment

Browse Source
This commit is contained in:
Jay McCarthy 2015-10-03 18:04:17 -04:00
parent df019df8a3
commit 5fec867f05
1 changed files with 72 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
remix/exp/struct.rkt Normal file
View File

@ -0,0 +1,72 @@
#lang racket/base
(require racket/unsafe/ops
ffi/unsafe)
(define (test-struct N)
(struct the (f i r))
(define x #f)
(define y #f)
(define z #f)
(for ([i (in-range N)])
(define t (the (exact->inexact i) i (number->string i)))
(set! x (the-f t))
(set! y (the-i t))
(set! z (the-r t))))
(define (test-unsafe-struct N)
(struct the (f i r))
(define x #f)
(define y #f)
(define z #f)
(for ([i (in-range N)])
(define t (the (exact->inexact i) i (number->string i)))
(set! x (unsafe-struct-ref t 0))
(set! y (unsafe-struct-ref t 1))
(set! z (unsafe-struct-ref t 2))))
(define (test-unsafe*-struct N)
(struct the (f i r))
(define x #f)
(define y #f)
(define z #f)
(for ([i (in-range N)])
(define t (the (exact->inexact i) i (number->string i)))
(set! x (unsafe-struct*-ref t 0))
(set! y (unsafe-struct*-ref t 1))
(set! z (unsafe-struct*-ref t 2))))
(define (test-vector N)
(define x #f)
(define y #f)
(define z #f)
(for ([i (in-range N)])
(define t (vector (exact->inexact i) i (number->string i)))
(set! x (vector-ref t 0))
(set! y (vector-ref t 1))
(set! z (vector-ref t 2))))
(define (test-unsafe-vector N)
(define x #f)
(define y #f)
(define z #f)
(for ([i (in-range N)])
(define t (vector (exact->inexact i) i (number->string i)))
(set! x (unsafe-vector-ref t 0))
(set! y (unsafe-vector-ref t 1))
(set! z (unsafe-vector-ref t 2))))
(define (test-cstruct N)
(define-cstruct _the ([f _float] [i _int] [r _racket]))
(define x #f)
(define y #f)
(define z #f)
(for ([i (in-range N)])
(define t (make-the (exact->inexact i) i (number->string i)))
(set! x (the-f t))
(set! y (the-i t))
(set! z (the-r t))))
(module+ test
(for ([p (in-list (list test-struct test-vector test-unsafe-struct test-unsafe*-struct test-unsafe-vector test-cstruct))])
(printf "testing ~v\n" p)
(time (p 1000000))))