493
edits
Changes
Updated code blocks to use Syntax Highlighting.
Line 7:
Line 7:
Here is the racket file, randomize-treatments.rkt. The source listing is below.+
Line 66:
Line 68:
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.
−<syntaxhighlight lang=racket>
− #lang racket
#lang racket
;(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>