Есть ли какой-либо чистый метод CSS для создания каждой буквы, одним словом, различным цветом?

Вот простая версия, которая работает:

(defn lookup
  [k lol]
  (let [the-map (into {}
                  (for [lst lol]
                    {(first lst) (second lst) } ))
        result (get the-map k)]
    result ) )

(lookup (quote b)      (quote (((a b) 1) (c 2) (b 3)))) => 3
(lookup (quote [a b])  (quote (((a b) 1) (c 2) (b 3)))) => 1
(lookup (quote d)      (quote (((a b) 1) (c 2) (b 3)))) => nil

Однако ваш код будет проще, если вы замените все цитируемые списки, такие как '(1 2 3), на векторы, подобные [1 2 3] (don тогда не нужно использовать начальную кавычку) и заменить все символы в кавычках, например 'a, на ключевые слова, подобные :a (также не нужно заключать в кавычки символы.

Внесение этих изменений и добавление модульных тестов выглядит следующим образом Итак:

(ns tst.demo.core
  (:use tupelo.core demo.core tupelo.test) )

(defn lookup
  [k lol]
  (get (into {} lol) k))

(dotest
  (is= 3    (lookup :b      [[[:a :b] 1] [:c 2] [:b 3]]))
  (is= 1    (lookup [:a :b] [[[:a :b] 1] [:c 2] [:b 3]]))
  (is= nil  (lookup :d      [[[:a :b] 1] [:c 2] [:b 3]])))

PS Пожалуйста, см. Brave Clojure для более подробной информации.

Обновление:

[ 1122] Нельзя использовать обычную функцию с этим синтаксисом:

(look-up b '(((a b) 1) (c 2) (b 3)))

, поскольку b является символом и подразумевается как переменная , а не как часть данных .Вы можете выбрать:

1. Преобразовать символ b в ключевое слово :b, как я предлагал
2. Всегда заключать в кавычки символ, например 'b (болезненный и ошибочный -prone)
3. Написать макрос (который автоматически «заключает в кавычки» все его аргументы) и сделать так, чтобы макрос вызывал первую версию функции lookup (много работы за небольшую выгоду).

Таким образом, я предложил пункт (1) в качестве предпочтительного решения.