236.rkt

#lang racket

; get-pieces : List Number String -> String
; will return a string of a given length(50) pieces shuffled repeating
; all the pieces within every x number of pieces

(define (get-pieces [pieces (list #\O #\I #\S #\Z #\L #\J #\T)] [length 50] [output ""])
  (if (>= (string-length output) length)
      (substring output 0 length)
      (get-pieces pieces length (string-append (list->string (shuffle pieces)) output))))