#lang scheme
(require "client.ss")
;; YOUR CODE HERE ;;


;;-----------------Names-------------------------------------------------------------


(define names '(jake jaek callan morgana tom chris patricia whiteny david bob paul))
(define verbs '((runs a)(eats a)(stops a)(walks a)(noms a)(stomps on a)(grows a)(kills a)(calls a)))
(define nouns '(cat caet bunny bird food horse rat bat tree grass))

(define s
  (lambda ()
      (list
       (list-ref names (random (length names)))
       (list-ref verbs (random (length verbs)))
       (list-ref nouns (random (length nouns)))
       )
    )
  )

;;------------------------------------------------------------------------------------End Names

;;---------Dice Roll
(define d
  (lambda (sides (quantity 1))
      (cond
        ((zero? quantity)
         null)
        ((positive? quantity)
         (append (d sides (- quantity 1)) (list (random sides))))
         )))


;;------END Dice Roll


;;------------------Morse Code----------------------------------------------------------

(define num 'bob)

(define morse
  (lambda input
    (cond
      ((equal? input 'a)
       (set! num '(.-))
       num)
      ((equal? input 'b)
       (set! num '(-...))
       num)
      ((equal? input 'c)
       (set! num '(-.-.))
       num)
      ((equal? input 'd)
       (set! num '(-..))
       num)
      ((equal? input 'e)
       (set! num '("."))
       num)
      ((equal? input 'f)
       (set! num '(..-.))
       num)
      ((equal? input 'g)
       (set! num '(--.))
       num)
      ((equal? input 'h)
       (set! num '(....))
       num)
      ((equal? input 'i)
       (set! num '(..))
       num)
      ((equal? input 'j)
       (set! num '(.---))
       num)
      ((equal? input 'k)
       (set! num '(-.-))
       num)
      ((equal? input 'l)
       (set! num '(.-..))
       num)
      ((equal? input 'm)
       (set! num '(--))
       num)
      ((equal? input 'n)
       (set! num '(-.))
       num)
      ((equal? input 'o)
       (set! num '(---))
       num)
      ((equal? input 'p)
       (set! num '(.--.))
       num)
      ((equal? input 'q)
       (set! num '(--.-))
       num)
      ((equal? input 'r)
       (set! num '(.-.))
       num)
      ((equal? input 's)
       (set! num '(...))
       num)
      ((equal? input 't)
       (set! num '(-))
       num)
      ((equal? input 'u)
       (set! num '(..-))
       num)
      ((equal? input 'v)
       (set! num '(...-))
       num)
      ((equal? input 'w)
       (set! num '(.--))
       num)
      ((equal? input 'x)
       (set! num '(-..-))
       num)
      ((equal? input 'y)
       (set! num '(-.--))
       num)
      ((equal? input 'z)
       (set! num '(--..))
       num)
      ('Error)
      )
    )
  )


;;------------------------------------------------------------------------------------End Morse Code