17 lines
551 B
Racket
Executable File
17 lines
551 B
Racket
Executable File
#!/bin/sh
|
|
#| -*- racket -*-
|
|
exec gracket "$0" "$@"
|
|
|#
|
|
#lang racket
|
|
|
|
(require rackunit plot plot/utils)
|
|
|
|
(check-equal? (linear-seq 0 1 2 #:start? #t #:end? #t) '(0 1))
|
|
(check-equal? (linear-seq 0 1 2 #:start? #t #:end? #f) '(0 2/3))
|
|
(check-equal? (linear-seq 0 1 2 #:start? #f #:end? #t) '(1/3 1))
|
|
(check-equal? (linear-seq 0 1 2 #:start? #f #:end? #f) '(1/4 3/4))
|
|
|
|
(check-exn exn:fail:contract?
|
|
(λ () (vector-field (λ (v [z 0]) v) -4 4 -4 4))
|
|
"Exception should be 'two of the clauses in the or/c might both match' or similar")
|