4.20 Procedures
procedure
(procedure? v) → boolean?
v : any/c
procedure
proc : procedure? v : any/c lst : list? kw-arg : any/c
The apply Function in The Racket Guide introduces apply.
Applies proc using the content of (list* v ... lst) as the (by-position) arguments. The #:<kw> kw-arg sequence is also supplied as keyword arguments to proc, where #:<kw> stands for any keyword.
The given proc must accept as many arguments as the number of vs plus length of lst, it must accept the supplied keyword arguments, and it must not require any other keyword arguments; otherwise, the exn:fail:contract exception is raised. The given proc is called in tail position with respect to the apply call.
> (apply + '(1 2 3)) 6
> (apply + 1 2 '(3)) 6
> (apply + '()) 0
> (apply sort (list (list '(2) '(1)) <) #:key car) '((1) (2))
procedure
(compose proc ...) → procedure?
proc : procedure?
procedure
(compose1 proc ...) → procedure?
proc : procedure?
When no proc arguments are given, the result is values. When exactly one is given, it is returned.
> ((compose1 - sqrt) 10) -3.1622776601683795
> ((compose1 sqrt -) 10) 0.0+3.1622776601683795i
> ((compose list split-path) (bytes->path #"/a" 'unix)) '(#<path:/> #<path:a> #f)
Note that in many cases, compose1 is preferred. For example, using compose with two library functions may lead to problems when one function is extended to return two values, and the preceding one has an optional input with different semantics. In addition, compose1 may create faster compositions.
procedure
(procedure-rename proc name [realm]) → procedure?
proc : procedure? name : symbol? realm : symbol? = 'racket
The given name and realm are used for printing and adjusting an error message if the resulting procedure is applied to the wrong number of arguments. In addition, if proc is an accessor or mutator produced by struct, make-struct-field-accessor, or make-struct-field-mutator, the resulting procedure also uses name when its (first) argument has the wrong type. More typically, however, name is not used for reporting errors, since the procedure name is typically hard-wired into an internal check.
Changed in version 8.4.0.2 of package base: Added the realm argument.
procedure
(procedure-realm proc) → symbol?
proc : procedure?
Added in version 8.4.0.2 of package base.
procedure
(procedure->method proc) → procedure?
proc : procedure?
procedure
(procedure-closure-contents-eq? proc1 proc2) → boolean? proc1 : procedure? proc2 : procedure?
4.20.1 Keywords and Arity
procedure
(keyword-apply proc kw-lst kw-val-lst v ... lst #:<kw> kw-arg ...) → any proc : procedure? kw-lst : (listof keyword?) kw-val-lst : list? v : any/c lst : list? kw-arg : any/c
The apply Function in The Racket Guide introduces keyword-apply.
Like apply, but kw-lst and kw-val-lst supply by-keyword arguments in addition to the by-position arguments of the vs and lst, and in addition to the directly supplied keyword arguments in the #:<kw> kw-arg sequence, where #:<kw> stands for any keyword.
The given kw-lst must be sorted using keyword<?. No keyword can appear twice in kw-lst or both in kw-lst and as a #:<kw>, otherwise, the exn:fail:contract exception is raised. The given kw-val-lst must have the same length as kw-lst, otherwise, the exn:fail:contract exception is raised. The given proc must accept all of the keywords in kw-lst plus the #:<kw>s, it must not require any other keywords, and it must accept as many by-position arguments as supplied via the vs and lst; otherwise, the exn:fail:contract exception is raised.
(define (f x #:y y #:z [z 10]) (list x y z))
> (keyword-apply f '(#:y) '(2) '(1)) '(1 2 10)
> (keyword-apply f '(#:y #:z) '(2 3) '(1)) '(1 2 3)
> (keyword-apply f #:z 7 '(#:y) '(2) '(1)) '(1 2 7)
procedure
(procedure-arity proc) → normalized-arity?
proc : procedure?
procedure
(procedure-arity? v) → boolean?
v : any/c
An exact non-negative integer, which means that the procedure accepts a arguments, only.
A arity-at-least instance, which means that the procedure accepts (arity-at-least-value a) or more arguments.
A list containing integers and arity-at-least instances, which means that the procedure accepts any number of arguments that can match one of the elements of a.
The result of procedure-arity is always normalized in the sense of normalized-arity?.
> (procedure-arity cons) 2
> (procedure-arity list) (arity-at-least 0)
> (arity-at-least? (procedure-arity list)) #t
> (arity-at-least-value (procedure-arity list)) 0
> (arity-at-least-value (procedure-arity (lambda (x . y) x))) 1
> (procedure-arity (case-lambda [(x) 0] [(x y) 1])) '(1 2)
procedure
(procedure-arity-mask proc) → exact-integer?
proc : procedure?
The mask encoding of an arity is often easier to test and manipulate, and procedure-arity-mask is sometimes faster than procedure-arity while always being at least as fast.
Added in version 7.0.0.11 of package base.
procedure
(procedure-arity-includes? proc k [kws-ok?]) → boolean?
proc : procedure? k : exact-nonnegative-integer? kws-ok? : any/c = #f
> (procedure-arity-includes? cons 2) #t
> (procedure-arity-includes? display 3) #f
> (procedure-arity-includes? (lambda (x #:y y) x) 1) #f
> (procedure-arity-includes? (lambda (x #:y y) x) 1 #t) #t
procedure
(procedure-reduce-arity proc arity [ name realm]) → procedure? proc : procedure? arity : procedure-arity? name : (or/c symbol? #f) = #f realm : symbol? = 'racket
If the arity specification allows arguments that are not in (procedure-arity proc), the exn:fail:contract exception is raised. If proc accepts keyword argument, either the keyword arguments must be all optional (and they are not accepted in by the arity-reduced procedure) or arity must be the empty list (which makes a procedure that cannot be called); otherwise, the exn:fail:contract exception is raised.
If name is not #f, then object-name of the result procedure produces name, and procedure-realm of the result produced produces realm. Otherwise, object-name and procedure-realm of the result procedure produce the same result as for proc.
> (define my+ (procedure-reduce-arity + 2)) > (my+ 1 2) 3
> (my+ 1 2 3) +: arity mismatch;
the expected number of arguments does not match the given
number
expected: 2
given: 3
> (define also-my+ (procedure-reduce-arity + 2 'also-my+)) > (also-my+ 1 2 3) also-my+: arity mismatch;
the expected number of arguments does not match the given
number
expected: 2
given: 3
Changed in version 7.0.0.11 of package base: Added the optional name
argument.
Changed in version 8.4.0.2: Added the realm argument.
procedure
(procedure-reduce-arity-mask proc mask [ name realm]) → procedure? proc : procedure? mask : exact-integer? name : (or/c symbol? #f) = #f realm : symbol? = 'racket
The mask encoding of an arity is often easier to test and manipulate, and procedure-reduce-arity-mask is sometimes faster than procedure-reduce-arity while always being at least as fast.
Added in version 7.0.0.11 of package base.
Changed in version 8.4.0.2: Added the realm argument.
procedure
(procedure-keywords proc) →
(listof keyword?) (or/c (listof keyword?) #f) proc : procedure?
> (procedure-keywords +)
'()
'()
> (procedure-keywords (lambda (#:tag t #:mode m) t))
'(#:mode #:tag)
'(#:mode #:tag)
> (procedure-keywords (lambda (#:tag t #:mode [m #f]) t))
'(#:tag)
'(#:mode #:tag)
procedure
(procedure-result-arity proc) → (or/c #f procedure-arity?)
proc : procedure?
> (procedure-result-arity car) 1
> (procedure-result-arity values) #f
> (procedure-result-arity (λ (x) (apply values (let loop () (cond [(zero? (random 10)) '()] [else (cons 1 (loop))]))))) #f
Added in version 6.4.0.3 of package base.
procedure
(make-keyword-procedure proc [plain-proc]) → procedure?
proc : ((listof keyword?) list? any/c ... . -> . any)
plain-proc : procedure? = (lambda args (apply proc null null args))
When the procedure returned by make-keyword-procedure is called with keyword arguments, then proc is called; the first argument is a list of distinct keywords sorted by keyword<?, the second argument is a parallel list containing a value for each keyword, and the remaining arguments are the by-position arguments.
When the procedure returned by make-keyword-procedure
is called without keyword arguments, then
plain-proc is called—
The result of procedure-arity and object-name on the new procedure is the same as for plain-proc, if plain-proc is provided. Otherwise, the result of object-name is the same as for proc, but the result of procedure-arity is derived from that of proc by reducing its arity by 2 (i.e., without the two prefix arguments that handle keyword arguments). See also procedure-reduce-keyword-arity and procedure-rename.
(define show (make-keyword-procedure (lambda (kws kw-args . rest) (list kws kw-args rest))))
> (show 1) '(() () (1))
> (show #:init 0 1 2 3 #:extra 4) '((#:extra #:init) (4 0) (1 2 3))
(define show2 (make-keyword-procedure (lambda (kws kw-args . rest) (list kws kw-args rest)) (lambda args (list->vector args))))
> (show2 1) '#(1)
> (show2 #:init 0 1 2 3 #:extra 4) '((#:extra #:init) (4 0) (1 2 3))
procedure
(procedure-reduce-keyword-arity proc arity required-kws allowed-kws [ name realm]) → procedure? proc : procedure? arity : procedure-arity? required-kws : (listof keyword?)
allowed-kws :
(or/c (listof keyword?) #f) name : (or/c symbol? #f) = #f realm : symbol? = 'racket
(define orig-show (make-keyword-procedure (lambda (kws kw-args . rest) (list kws kw-args rest)))) (define show (procedure-reduce-keyword-arity orig-show 3 '(#:init) '(#:extra #:init)))
> (show #:init 0 1 2 3 #:extra 4) '((#:extra #:init) (4 0) (1 2 3))
> (show 1) arity mismatch;
the expected number of arguments does not match the given
number
expected: 3 plus an argument with keyword #:init plus an
optional argument with keyword #:extra
given: 1
arguments...:
1
> (show #:init 0 1 2 3 #:extra 4 #:more 7) application: procedure does not expect an argument with
given keyword
procedure: #<procedure>
given keyword: #:more
arguments...:
1
2
3
#:extra 4
#:init 0
#:more 7
Changed in version 8.4.0.2 of package base: Added the realm argument.
procedure
(procedure-reduce-keyword-arity-mask proc mask required-kws allowed-kws [ name realm]) → procedure? proc : procedure? mask : exact-integer? required-kws : (listof keyword?)
allowed-kws :
(or/c (listof keyword?) #f) name : (or/c symbol? #f) = #f realm : symbol? = 'racket
Added in version 7.0.0.11 of package base.
Changed in version 8.4.0.2: Added the realm argument.
struct
(struct arity-at-least (value) #:extra-constructor-name make-arity-at-least) value : exact-nonnegative-integer?
If the prop:procedure property value is an exact non-negative integer, it designates a field within the structure that should contain a procedure. The integer must be between 0 (inclusive) and the number of non-automatic fields in the structure type (exclusive, not counting supertype fields). The designated field must also be specified as immutable, so that after an instance of the structure is created, its procedure cannot be changed. (Otherwise, the arity and name of the instance could change, and such mutations are generally not allowed for procedures.) When the instance is used as the procedure in an application expression, the value of the designated field in the instance is used to complete the procedure call. (This procedure can be another structure that acts as a procedure; the immutability of procedure fields disallows cycles in the procedure graph, so that the procedure call will eventually continue with a non-structure procedure.) That procedure receives all of the arguments from the application expression. The procedure’s name (see object-name), arity (see procedure-arity), and keyword protocol (see procedure-keywords) are also used for the name, arity, and keyword protocol of the structure. If the value in the designated field is not a procedure, then the instance behaves like (case-lambda) (i.e., a procedure which does not accept any number of arguments). See also procedure-extract-target.
Providing an integer proc-spec argument to make-struct-type is the same as both supplying the value with the prop:procedure property and designating the field as immutable (so that a property binding or immutable designation is redundant and disallowed).
> (struct annotated-proc (base note) #:property prop:procedure (struct-field-index base))
> (define plus1 (annotated-proc (lambda (x) (+ x 1)) "adds 1 to its argument")) > (procedure? plus1) #t
> (annotated-proc? plus1) #t
> (plus1 10) 11
> (annotated-proc-note plus1) "adds 1 to its argument"
When the prop:procedure value is a procedure, it should accept at least one non-keyword argument. When an instance of the structure is used in an application expression, the property-value procedure is called with the instance as the first argument. The remaining arguments to the property-value procedure are the arguments from the application expression (including keyword arguments). Thus, if the application expression provides five non-keyword arguments, the property-value procedure is called with six non-keyword arguments. The name of the instance (see object-name) and its keyword protocol (see procedure-keywords) are unaffected by the property-value procedure, but the instance’s arity is determined by subtracting one from every possible non-keyword argument count of the property-value procedure. If the property-value procedure cannot accept at least one argument, then the instance behaves like (case-lambda).
Providing a procedure proc-spec argument to make-struct-type is the same as supplying the value with the prop:procedure property (so that a specific property binding is disallowed).
> (struct fish (weight color) #:mutable #:property prop:procedure (lambda (f n) (let ([w (fish-weight f)]) (set-fish-weight! f (+ n w))))) > (define wanda (fish 12 'red)) > (fish? wanda) #t
> (procedure? wanda) #t
> (fish-weight wanda) 12
> (for-each wanda '(1 2 3)) > (fish-weight wanda) 18
If the value supplied for the prop:procedure property is not an exact non-negative integer or a procedure, the exn:fail:contract exception is raised.
procedure
(procedure-struct-type? type) → boolean?
type : struct-type?
procedure
(procedure-extract-target proc) → (or/c #f procedure?)
proc : procedure?
When a prop:procedure property value is a procedure, the procedure is not returned by procedure-extract-target. Such a procedure is different from one accessed through a structure field, because it consumes an extra argument, which is always the structure that was applied as a procedure. Keeping the procedure private ensures that is it always called with a suitable first argument.
Arity-mismatch reporting automatically uses procedure-extract-target when the prop:arity-string property is not associated with a procedure structure type.
> (struct evens (proc) #:property prop:procedure (struct-field-index proc) #:property prop:arity-string (lambda (p) "an even number of arguments"))
> (define pairs (evens (case-lambda [() null] [(a b . more) (cons (cons a b) (apply pairs more))]))) > (pairs 1 2 3 4) '((1 . 2) (3 . 4))
> (pairs 5) arity mismatch;
the expected number of arguments does not match the given
number
expected: an even number of arguments
given: 1
arguments...:
5
procedure
(checked-procedure-check-and-extract type v proc v1 v2) → any/c type : struct-type? v : any/c proc : (any/c any/c any/c . -> . any/c) v1 : any/c v2 : any/c
If v is not an instance of type, or if the first field of v applied to v1 and v2 produces #f, then proc is applied to v, v1, and v2, and its result is returned by checked-procedure-check-and-extract.
procedure
(procedure-specialize proc) → procedure?
proc : procedure?
The hint is currently used when proc is the value of a lambda or case-lambda form that references variables bound outside of the lambda or case-lambda, and when proc has not been previously applied.
Added in version 6.3.0.10 of package base.
4.20.2 Reflecting on Primitives
A primitive procedure is a built-in procedure that may be implemented in a lower-level language. Not all procedures of racket/base are primitives, but many are. The distinction between primitives and other procedures may be useful to other low-level code.
procedure
(primitive? v) → boolean?
v : any/c
procedure
(primitive-closure? v) → boolean?
v : any/c
procedure
(primitive-result-arity prim) → procedure-arity?
prim : primitive?
4.20.3 Additional Higher-Order Functions
(require racket/function) | package: base |
procedure
(const v) → procedure?
v : any/c
procedure
(const* v ...) → procedure?
v : any/c
> ((const*)) > ((const*) 1 2 3) > ((const*) 'a 'b #:c 'c) > ((const* 'foo)) 'foo
> ((const* 'foo) 1 2 3) 'foo
> ((const* 'foo) 'a 'b #:c 'c) 'foo
> ((const* 'foo 'foo))
'foo
'foo
> ((const* 'foo 'foo) 1 2 3)
'foo
'foo
> ((const* 'foo 'foo) 'a 'b #:c 'c)
'foo
'foo
Added in version 8.7.0.5 of package base.
(define th1 (thunk (define x 1) (printf "~a\n" x)))
> (th1) 1
> (th1 'x) th1: arity mismatch;
the expected number of arguments does not match the given
number
expected: 0
given: 1
> (th1 #:y 'z) application: procedure does not accept keyword arguments
procedure: th1
arguments...:
#:y 'z
(define th2 (thunk* (define x 1) (printf "~a\n" x)))
> (th2) 1
> (th2 'x) 1
> (th2 #:y 'z) 1
procedure
(negate proc) → procedure?
proc : procedure?
procedure
f : procedure? x : any/c
(define f (conjoin exact? integer?))
> (f 1) #t
> (f 1.0) #f
> (f 1/2) #f
> (f 0.5) #f
> ((conjoin (λ (x) (values 1 2))) 0)
1
2
procedure
f : procedure? x : any/c
(define f (disjoin exact? integer?))
> (f 1) #t
> (f 1.0) #t
> (f 1/2) #t
> (f 0.5) #f
> ((disjoin (λ (x) (values 1 2))) 0)
1
2
procedure
(curry proc) → procedure?
proc : procedure? (curry proc v ...+) → any proc : procedure? v : any/c
> ((curry list) 1 2) #<procedure:curried:list>
> ((curry cons) 1) #<procedure:curried:cons>
> ((curry cons) 1 2) '(1 . 2)
After the first application of the result of (curry proc), each further application accumulates arguments until an acceptable number of arguments according to (procedure-arity proc) have been accumulated, at which point the original proc is called.
> (((curry list) 1 2) 3) '(1 2 3)
> (((curry list) 1) 3) '(1 3)
> ((((curry foldl) +) 0) '(1 2 3)) 6
> (define foo (curry (lambda (x y z) (list x y z)))) > (foo 1 2 3) '(1 2 3)
> (((((foo) 1) 2)) 3) '(1 2 3)
A function call (curry proc v ...) is equivalent to ((curry proc) v ...). In other words, curry itself is curried.
> (map ((curry +) 10) '(1 2 3)) '(11 12 13)
> (map (curry + 10) '(1 2 3)) '(11 12 13)
> (map (compose (curry * 2) (curry + 10)) '(1 2 3)) '(22 24 26)
The curry function also supports functions with keyword arguments: keyword arguments will be accumulated in the same way as positional arguments until all required keyword arguments according to (procedure-keywords proc) have been supplied.
(define (f #:a a #:b b #:c c) (list a b c))
> ((((curry f) #:a 1) #:b 2) #:c 3) '(1 2 3)
> ((((curry f) #:b 1) #:c 2) #:a 3) '(3 1 2)
> ((curry f #:a 1 #:c 2) #:b 3) '(1 3 2)
Changed in version 7.0.0.7 of package base: Added support for keyword arguments.
procedure
(curryr proc) → procedure?
proc : procedure? (curryr proc v ...+) → any proc : procedure? v : any/c
procedure
(normalized-arity? arity) → boolean?
arity : any/c
the empty list;
an exact non-negative integer;
an arity-at-least instance;
a list of two or more strictly increasing, exact non-negative integers; or
a list of one or more strictly increasing, exact non-negative integers followed by a single arity-at-least instance whose value is greater than the preceding integer by at least 2.
> (normalized-arity? (arity-at-least 1)) #t
> (normalized-arity? (list (arity-at-least 1))) #f
> (normalized-arity? (list 0 (arity-at-least 2))) #t
> (normalized-arity? (list (arity-at-least 2) 0)) #f
> (normalized-arity? (list 0 2 (arity-at-least 3))) #f
procedure
(normalize-arity arity)
→ (and/c normalized-arity? (lambda (x) (arity=? x arity))) arity : procedure-arity?
> (normalize-arity 1) 1
> (normalize-arity (list 1)) 1
> (normalize-arity (arity-at-least 2)) (arity-at-least 2)
> (normalize-arity (list (arity-at-least 2))) (arity-at-least 2)
> (normalize-arity (list 1 (arity-at-least 2))) (arity-at-least 1)
> (normalize-arity (list (arity-at-least 2) 1)) (arity-at-least 1)
> (normalize-arity (list (arity-at-least 2) 3)) (arity-at-least 2)
> (normalize-arity (list 3 (arity-at-least 2))) (arity-at-least 2)
> (normalize-arity (list (arity-at-least 6) 0 2 (arity-at-least 4))) (list 0 2 (arity-at-least 4))
procedure
a : procedure-arity? b : procedure-arity?
> (arity=? 1 1) #t
> (arity=? (list 1) 1) #t
> (arity=? 1 (list 1)) #t
> (arity=? 1 (arity-at-least 1)) #f
> (arity=? (arity-at-least 1) 1) #f
> (arity=? (arity-at-least 1) (list 1 (arity-at-least 2))) #t
> (arity=? (list 1 (arity-at-least 2)) (arity-at-least 1)) #t
> (arity=? (arity-at-least 1) (list 1 (arity-at-least 3))) #f
> (arity=? (list 1 (arity-at-least 3)) (arity-at-least 1)) #f
> (arity=? (list 0 1 2 (arity-at-least 3)) (list (arity-at-least 0))) #t
> (arity=? (list (arity-at-least 0)) (list 0 1 2 (arity-at-least 3))) #t
> (arity=? (list 0 2 (arity-at-least 3)) (list (arity-at-least 0))) #f
> (arity=? (list (arity-at-least 0)) (list 0 2 (arity-at-least 3))) #f
procedure
(arity-includes? a b) → boolean?
a : procedure-arity? b : procedure-arity?
> (arity-includes? 1 1) #t
> (arity-includes? (list 1) 1) #t
> (arity-includes? 1 (list 1)) #t
> (arity-includes? 1 (arity-at-least 1)) #f
> (arity-includes? (arity-at-least 1) 1) #t
> (arity-includes? (arity-at-least 1) (list 1 (arity-at-least 2))) #t
> (arity-includes? (list 1 (arity-at-least 2)) (arity-at-least 1)) #t
> (arity-includes? (arity-at-least 1) (list 1 (arity-at-least 3))) #t
> (arity-includes? (list 1 (arity-at-least 3)) (arity-at-least 1)) #f
> (arity-includes? (list 0 1 2 (arity-at-least 3)) (list (arity-at-least 0))) #t
> (arity-includes? (list (arity-at-least 0)) (list 0 1 2 (arity-at-least 3))) #t
> (arity-includes? (list 0 2 (arity-at-least 3)) (list (arity-at-least 0))) #f
> (arity-includes? (list (arity-at-least 0)) (list 0 2 (arity-at-least 3))) #t