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

random modified to take just one argument

Browse Source 
svn: r14514
This commit is contained in:
Matthias Felleisen 2009-04-14 21:52:45 +00:00
parent 0f9cb4882d
commit d0841e6c74
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/lang/private/beginner-funs.ss
View File

@ -172,9 +172,8 @@
(integer->char (integer -> char) (integer->char (integer -> char)
"to lookup the character that corresponds to the given integer (exact only!) in the ASCII table (if any)") "to lookup the character that corresponds to the given integer (exact only!) in the ASCII table (if any)")
(random (integer -> integer) ((beginner-random random) (integer -> integer)
"to generate a random natural number less than some given integer "to generate a random natural number less than some given integer (exact only!)")
(exact only!)")
(current-seconds (-> integer) (current-seconds (-> integer)
"to compute the current time in seconds elapsed" "to compute the current time in seconds elapsed"

5
collects/lang/private/teachprims.ss
View File

@ -126,6 +126,10 @@ namespace.
(current-continuation-marks)))) (current-continuation-marks))))
(not a))) (not a)))
(define-teach beginner random
(lambda (a)
(random a)))
(define-teach beginner + (define-teach beginner +
(lambda (a b . args) (lambda (a b . args)
(apply + a b args))) (apply + a b args)))
@ -304,6 +308,7 @@ namespace.
(provide (provide
false? false?
beginner-not beginner-not
beginner-random
beginner-+ beginner-+
beginner-/ beginner-/
beginner-* beginner-*