;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Student name: Tommy Gober
; Course: COSC 4153 - Programming Languages
; Assignment: #6 - Procedures in Scheme
; File name:  gober6.scm
; Purpose:  Implements a variety of simple procedures in Scheme
; Limitations: None known
; Development Computer: personal computer
; Operating System: Windows XP
; Interpreter: DrScheme
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Problem #1 - transform
(define (transform a b)
    (list (+ a (modulo b (expt 2 a)))
          (+ a (modulo (* 3 b) (expt 2 a)))
    ))

; Problem #2 - findMiddleValue
; Whoa baby, I love this solution!
(define (findMiddleValue a b c)(
    if (> a b)(if (> b c) b c)
       (if (> b c)(if (> a c) a c) b)
    ))

; Problem #3 - everyOther
(define (everyOther aList)(
    cond((null? aList) '())
        ((> (length aList) 2) (cons (car aList)(everyOther (cddr aList))))
        (else (list(car aList)))
    ))