Essa função não faz nenhum sentido!

Fala aí Bruno tudo bem?

Nessa funcão:

(defn fib[x]
    (loop [a 1 b 1 numero 2]
        (if 
            (= numero x) b
            (recur b (+ a b) (inc numero)))))

O que está acontecendo é que o recur está fazendo uma recursão de cauda para o loop e não para o fib

O loop está recebendo 3 valores a e b para fazer a sequencia de fibonacci ( 1+1, 2 + 1 e etc...) e a variável numero que é um contador começando em 2. Esse loop vai repetir o processo enquanto o contador não for igual ao valor que você passou para a funcão fib.

Exemplo:

(fib 3)

Nesse casso o loop vai ser executado 2 vezes. A primeira vez o for executado o loop as variaveis estaram com os seguintes valores.

a=1 b=1 numero=2

No if vai ser comparado o valor da variável numero e o valor que foi passado para a função fib. Como não são iguais será executado o recur.

O recur vai chamar o loop passando para ele os valores de b para o primeiro parâmetro do loop. (+ a b) para o segundo parâmetro do loop e (inc numero) para o terceiro parâmetro do loop.

Com isso na segunda volta do loop os valores para os parâmetros são:

a=1 b=2 numero=3

No if será comparado o valor da variável numero com o valor passado para a função fib. Como os dois são iguais será retornado o valor da variável b.

Espero ter ajudado. []s

Excelente explicação, mas tem um pequeno problema nessa fórmula. Se o usuário chamar:

(fib 1)

ao invés de retornar o valor 1, que seria o resultado, a função entraria em um loop infinito, já que numero nunca seria 1.

No mais, foi uma excelente explicação. Esclareceu bastante o que está acontecendo, apesar de eu ainda não achar a função mais intuitiva de todas.