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

Documented new nat functions

Browse Source
This commit is contained in:
William J. Bowman 2016-01-09 04:24:25 -05:00
parent 1b01c48df5
commit 8eb512ebcc
No known key found for this signature in database
GPG Key ID: DDD48D26958F0D1A
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
scribblings/stdlib/nat.scrbl
View File

@ -41,6 +41,35 @@ Add @racket[n] and @racket[m].
(plus (s (s z)) (s z))] (plus (s (s z)) (s z))]
} }
@defproc[(mult [n Nat] [m Nat]) Nat]{
Multiply @racket[n] and @racket[m].
@examples[#:eval curnel-eval
(mult (s z) (s z))
(mult z (s z))
(mult (s (s z)) (s z))]
}
@defproc[(exp [m Nat] [e Nat]) Nat]{
Compute @racket[e] to the @racket[m]th exponent.
Due to limitations in Cur, running @racket[exp] takes to long to be
useful on numbers larger than @racket[(s z)].
@;@examples[#:eval curnel-eval
@; (exp (s z) (s z))
@; (exp z (s z))]
}
@defproc[(square [m Nat]) Nat]{
Compute @racket[m] squared, i.e., @racket[(exp m (s (s z)))].
Due to limitations in Cur, running @racket[square] takes to long to be
useful on numbers larger than @racket[(s z)].
@;@examples[#:eval curnel-eval
@; (square z)]
}
@defproc[(nat-equal? [n Nat] [m Nat]) Bool]{ @defproc[(nat-equal? [n Nat] [m Nat]) Bool]{
Return @racket[true] if and only if @racket[n] is equal to @racket[m]. Return @racket[true] if and only if @racket[n] is equal to @racket[m].