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

23:05пожаловаться

O in Сообщество Scheme

Ну и перекресная тема применения Guix @gnu_guix_ru

23:06пожаловаться

2019 June 06

Ну ка быстро ник на схеме переписал

for(int c; (c = getchar()) != EOF;) in Сообщество Scheme

14:48пожаловаться

У меня био на Лиспе

Vλadimir (Hawthorne the Toolmaker) in Сообщество Scheme

14:48пожаловаться

/thread

14:49пожаловаться

На борще

14:49пожаловаться

Ну ка быстро ник на схеме переписал

(let ([c (read-char)]) (unless (eof-object? c)))

14:57пожаловаться

При условии что это будет завернуто в функцию с рекурсией

14:59пожаловаться

А так сработает?

(let l (cs)
  (let ((c (read-char)))
    (unless (eof-object? c)
      (l (cons c cs)))))

15:00пожаловаться

(let l ((cs '()))
  (let ((c (read-char)))
    (if (eof-object? c)
        (reverse cs)
        (l (cons c cs)))))

15:00пожаловаться

(let l ((cs '()))
  (let ((c (read-char)))
    (if (eof-object? c)
        (reverse cs)
        (l (cons c cs)))))

Что-то я не понял начальное значение l. Похоже на невалидный код

15:10пожаловаться

В борще и елиспе в таком случае начальное значение будет nil

15:13пожаловаться

В борще и елиспе в таком случае начальное значение будет nil

Я конечно могу ошибаться но у тебя первый let вроде неверно написан

15:19пожаловаться

Плохой язык

15:22пожаловаться

Пофиксил

15:23пожаловаться

Пофиксил

Вроде ты опять не там скобку поставил. Перед l надо

15:25пожаловаться

Не, это как раз правильно

15:26пожаловаться

Я уже запускал код, он работает

15:27пожаловаться

https://docs.racket-lang.org/reference/let.html

15:27пожаловаться

Обычный let это сахар над лямбдой,

(let ((x v)...) e...) = ((lambda (x...) e...) v...)

а let с именем это сахар над лямбдой с комбинатором неподвижной точки

let f ((x v)...) e...) = ((fix (lambda (f x...) e...)) v...))