Телеграмм чат группы emacs

(define (vector-assoc v vec)
  (letrec ([f (lambda x
                (cond [(list? (vector-ref vec x))] ((if (equal? v (car (vector-ref vec x)))
                                                        (vector-ref vec x)
                                                        (lambda x (f (+ 1 x)))))
                      [(= (x (vector-length vec)))] ((if (equal? v (car (vector-ref vec x)))
                                                         (vector-ref vec x)
                                                         #f))
                      [#f] ((lambda x (f (+ 1 x))))))])

    (f 1)))

ребят, почему у меня при вызове f 1, x становится '(1)?

источник

11:28пожаловаться #7

Nikita Domnickij in Emacs — русскоговорящее сообщество

lambda x это рест аргументы если чо

источник

11:34пожаловаться #8

Vitaly Vasiliev in Emacs — русскоговорящее сообщество

можно поподробнее?

источник

11:35пожаловаться #9

Григорий in Emacs — русскоговорящее сообщество

(lambda (x) ()) нада судя по всему

источник

11:35пожаловаться #10

Nikita Domnickij in Emacs — русскоговорящее сообщество

((lambda x x) 1) => '(1)

источник

11:35пожаловаться #11

Nikita Domnickij in Emacs — русскоговорящее сообщество

ну и у тебя конд кложовый какой-то, лол

источник

11:38пожаловаться #12

Vitaly Vasiliev in Emacs — русскоговорящее сообщество

че то я туплю

источник

11:39пожаловаться #13

Nikita Domnickij in Emacs — русскоговорящее сообщество

(cond
   ((list? '(1)) (1+ 1)))

источник

11:40пожаловаться #14

Григорий in Emacs — русскоговорящее сообщество

в скобку заверни x

источник

11:40пожаловаться #15

Vitaly Vasiliev in Emacs — русскоговорящее сообщество

уже попробовал, он мне тогда процедуру возвращает

источник

11:40пожаловаться #16

Aragaer in Emacs — русскоговорящее сообщество

не, в смысле lambda x надо поменять на lambda (x)

источник

11:41пожаловаться #17

Григорий in Emacs — русскоговорящее сообщество

ну так у тебя дальше в коде такая же фигня

источник

11:41пожаловаться #18

Григорий in Emacs — русскоговорящее сообщество

(if (equal? v (car (vector-ref vec x)))
                                                        (vector-ref vec x)
                                                        (lambda x (f (+ 1 x)))

источник

11:41пожаловаться #19

Vitaly Vasiliev in Emacs — русскоговорящее сообщество

ну я везде поменял

источник

11:42пожаловаться #20