Examples/mzscheme/std_vector/example.scm

   1 ;; run with mzscheme -r example.scm
   2
   3 (load-extension "example.so")
   4
   5 ; repeatedly invoke a procedure with v and an index as arguments
   6 (define (with-vector v proc size-proc)
   7   (let ((size (size-proc v)))
   8     (define (with-vector-item v i)
   9       (if (< i size)
  10           (begin
  11             (proc v i)
  12             (with-vector-item v (+ i 1)))))
  13     (with-vector-item v 0)))
  14
  15 (define (with-intvector v proc)
  16   (with-vector v proc intvector-length))
  17 (define (with-doublevector v proc)
  18   (with-vector v proc doublevector-length))
  19
  20 (define (print-doublevector v)
  21   (with-doublevector v (lambda (v i) (display (doublevector-ref v i))
  22                                      (display " ")))
  23   (newline))
  24
  25
  26 ; Call average with a Scheme list...
  27
  28 (display (average '(1 2 3 4)))
  29 (newline)
  30
  31 ; ... or a wrapped std::vector<int>
  32 (define v (new-intvector 4))
  33 (with-intvector v (lambda (v i) (intvector-set! v i (+ i 1))))
  34 (display (average v))
  35 (newline)
  36 (delete-intvector v)
  37
  38 ; half will return a Scheme vector.
  39 ; Call it with a Scheme vector...
  40
  41 (display (half #(1 1.5 2 2.5 3)))
  42 (newline)
  43
  44 ; ... or a wrapped std::vector<double>
  45 (define v (new-doublevector))
  46 (map (lambda (i) (doublevector-push! v i)) '(1 2 3 4))
  47 (display (half v))
  48 (newline)
  49
  50 ; now halve a wrapped std::vector<double> in place
  51 (halve-in-place v)
  52 (print-doublevector v)
  53 (delete-doublevector v)
  54