(define german (lambda (word) (cond ((eq? word 'one) 'eins) ((eq? word 'day) 'tag) ((eq? word 'good) 'gut) (else 'ich-weiss-es-nicht)))) (DEFINE german (LAMBDA (word) (COND [(eq? word 'one) 'eins] [(eq? word 'day) 'tag] [(eq? word 'good) 'gut] [ELSE 'ich-weiss-es-nicht]))) (DEFINE german-greeting (LAMBDA (thyme) ; REQUIRES: word is one of morning, ; afternoon, or evening (cons 'guten (cons (IF (eq? thyme 'morning) 'morgen 'tag) '())))) (DEFINE german-greeting-redundant (LAMBDA (thyme) (IF (eq? thyme 'morning) (cons 'guten (cons 'morgen '())) (cons 'guten (cons 'tag '()))))) (DEFINE better-greeting (LAMBDA (thyme) (cons 'guten (cons (COND [(eq? thyme 'morning) 'morgen] [(eq? thyme 'afternoon) 'tag] [(eq? thyme 'evening) 'abend]) '()))))