Line 7:
Line 7:
given a list of treatments and an integer number of subjects, call '''randomize-treatments''':
given a list of treatments and an integer number of subjects, call '''randomize-treatments''':
+
<syntaxhighlight lang=racket>
> (define treatments '(drug1 drug2 drug3 drug4))
> (define treatments '(drug1 drug2 drug3 drug4))
> (define number-of-subjects 6)
> (define number-of-subjects 6)
Line 18:
Line 19:
done
done
>
>
−
+
</syntaxhighlight>
Here is the the source listing.
Here is the the source listing.
+
<syntaxhighlight lang=racket>
#lang racket
#lang racket
Line 66:
Line 68:
;(define number-of-subjects 6)
;(define number-of-subjects 6)
;(randomize-treatments #:list treatments #:forSubjectCount number-of-subjects)
;(randomize-treatments #:list treatments #:forSubjectCount number-of-subjects)
+
</syntaxhighlight>