You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
895 B
Racket
29 lines
895 B
Racket
#lang racket/base
|
|
(require rackunit)
|
|
|
|
(module trb typed/racket/base
|
|
(require typed/sugar/list typed/rackunit)
|
|
(provide (all-defined-out))
|
|
;; (trimf odd? '(1 2 3)) ; type error
|
|
(define foo (trimf '(1 2 3) odd?))
|
|
(check-equal? foo '(2)))
|
|
|
|
(module rb racket/base
|
|
(require (submod sugar/list safe) rackunit)
|
|
(provide (all-defined-out))
|
|
(check-exn exn:fail:contract? (λ _ (trimf odd? '(1 2 3)))) ; fails at trimf
|
|
(define foo (trimf '(1 2 3) odd?))
|
|
(check-equal? foo '(2)))
|
|
|
|
(module rbu racket/base
|
|
(require sugar/list rackunit)
|
|
(provide (all-defined-out))
|
|
(check-exn exn:fail:contract? (λ _ (trimf odd? '(1 2 3)))) ; fails at dropf
|
|
(define foo (trimf '(1 2 3) odd?))
|
|
(check-equal? foo '(2)))
|
|
|
|
(require (prefix-in trb: 'trb))
|
|
(require (prefix-in rb: 'rb))
|
|
(require (prefix-in rbu: 'rbu))
|
|
|
|
(check-true (andmap (λ(val) (equal? val '(2))) (list trb:foo rb:foo rbu:foo))) |