Free Clojure course. Sign Up for tracking progress →

Clojure: Локальные объявления

def в Clojure может использоваться как на уровне модуля, так и внутри функций:

(defn f []
  (def text "lorem")
  (println text))
(f) ; => "lorem"
; у `def text` локальная область видимости
(println text) ; <error>

Но с ним связано несколько тонких моментов:

  • Хотя лиспы похожи между собой, конкретно def ведет себя совершенно по-разному в разных диалектах Lisp. В некоторых объявления останутся локальными для текущей области видимости, в других же объявление всегда будет глобальным.
  • Объявления переменных должно идти в самом начале функции, до любых других выражений.

Существует и другой способ объявить локальные переменные, гораздо более популярный и предсказуемый:

(let [text "lorem"] (println text)) ; => lorem

Каждое объявление в let — это список из имени и выражения, вычисленное значение которого будет ассоциировано с именем. Перепишем уже знакомую нам функцию sum, используя локальные объявления:

; форма записи без локальных объявлений:
(def sum (fn [x y] (+ x y)))
(sum 8 7) ; вызов глобальной функции
; форма записи с локальными объявлениями:
(let [sum (fn [x y] (+ x y))]
  (sum 8 7)) ; вызов локальной функции

Все объявления внутри let доступны только в выражениях, которые вызываются внутри самого let после списка объявлений. Вот ещё несколько более сложных примеров, с несколькими объявлениями:

(let [x 2
      y (+ 4 3)]
  (+ x y)) ; 9
(defn sum-of-squares [x y]
  (let [x-square (* x x)
        y-square (* y y)]
    (+ x-square y-square)))

Можно пойти еще дальше — вызывать локальную функцию внутри глобальной:

(defn sum-of-squares [x y]
  (let [square (fn [n] (* n n))]
    (+ (square x) (square y))))
(sum-of-squares 8 7) ; => 113

Объявления, созданные в рамках одного использования let, видны друг другу. Поэтому мы можем сделать так:

(let [x 2
      y (* x 10)]
  (+ x y))

Есть еще форма letfn, которая делает то же самое, только для функций, в более коротком виде:

(letfn [(increment [x] (+ x 1))
        (decrement [x] (- x 1))
        (put-value [] 10)]
  (increment (decrement (put-value)))); 10

Instructions

Реализуйте функцию prod-sum, которая сначала умножает переданное число на себя, а затем суммируется между собой и полученным результатом умножения. Воспользуйтесь локальными объявлениями для хранения промежуточных результатов вычисления.

(prod-sum 2) ; 6
(prod-sum 3) ; 12
(prod-sum 4) ; 20
The exercise doesn't pass checking. What to do? 😶

If you've reached a deadlock it's time to ask your question in the «Discussions». How ask a question correctly:

  • Be sure to attach the test output, without it it's almost impossible to figure out what went wrong, even if you show your code. It's complicated for developers to execute code in their heads, but having a mistake before their eyes most probably will be helpful.
In my environment the code works, but not here 🤨

Tests are designed so that they test the solution in different ways and against different data. Often the solution works with one kind of input data but doesn't work with others. Check the «Tests» tab to figure this out, you can find hints at the error output.

My code is different from the teacher's one 🤔

It's fine. 🙆 One task in programming can be solved in many different ways. If your code passed all tests, it complies with the task conditions.

In some rare cases, the solution may be adjusted to the tests, but this can be seen immediately.

I've read the lessons but nothing is clear 🙄

It's hard to make educational materials that will suit everyone. We do our best but there is always something to improve. If you see a material that is not clear to you, describe the problem in “Discussions”. It will be great if you'll write unclear points in the question form. Usually, we need a few days for corrections.

By the way, you can participate in courses improvement. There is a link below to the lessons course code which you can edit right in your browser.

If you got stuck and don't know what to do, you can ask a question in our huge and friendly community