Contents

(defmodule bob
  (export (response-for 1)))

(defun response-for (str)
  (first-match
    str
    `(#(,#'all-spaces?/1    "Fine. Be that way!")
      #(,#'shouting?/1      "Whoa, chill out!")
      #(,#'question?/1      "Sure.")
      #(,(lambda (_) 'true) "Whatever."))))

(defun first-match
  ([s (cons `#(,f ,res) fs)]
   (case (funcall f s)
     ('true res)
     ('false (first-match s fs)))))

(defun all-spaces? (str) (=/= (re:run str "^(\\h|\\v)*$" '(unicode)) 'nomatch))

(defun shouting? (str)
  (andalso (lists:any (lambda (c) (andalso (>= c #\A) (=< c #\Z))) str)
           (=:= (string:to_upper str) str)))

(defun question? (str) (=:= (lists:last str) #\?))

Version data entries

396 entries across 396 versions & 1 rubygems

Version	Path
trackler-2.2.1.159	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.158	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.157	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.156	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.155	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.154	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.153	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.152	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.151	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.150	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.149	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.148	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.147	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.146	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.145	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.144	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.143	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.142	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.141	tracks/lfe/exercises/bob/src/example.lfe
trackler-2.2.1.140	tracks/lfe/exercises/bob/src/example.lfe