Contents

#lang racket

(provide response-for)

(define (response-for phrase)
  (cond
    [(silent? phrase) "Fine. Be that way!"]
    [(shouting? phrase) "Whoa, chill out!"]
    [(question? phrase) "Sure."]
    [else "Whatever."]))

(define (silent? phrase)
  (or (null? phrase)
      (equal? (string-normalize-spaces phrase) "")))

(define (shouting? phrase)
  (and (equal? (string-upcase phrase) phrase)
       (ormap (lambda (x) (char-alphabetic? x)) (string->list phrase))))

(define (question? phrase)
  (char=? #\?
          (string-ref phrase
                      (- (string-length phrase) 1))))

Version data entries

396 entries across 396 versions & 1 rubygems

Version	Path
trackler-2.2.1.98	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.97	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.96	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.95	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.94	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.93	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.92	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.91	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.90	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.89	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.88	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.87	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.86	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.85	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.84	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.83	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.82	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.81	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.80	tracks/racket/exercises/bob/example.rkt
trackler-2.2.1.79	tracks/racket/exercises/bob/example.rkt