VM
Я так и не разобрался в гигиенических макросах scheme'ы.
Size: a a a
2020 February 25
V(
И изолированное окружение это как раз минус.
Ага, и автор тоже пишет об этом)
V(
Вообще, вторая попытка прочтения LoL после интрижки со схемой идет на ура.
VM
Я так и не разобрался в гигиенических макросах scheme'ы.
Даже первый макрос не смог написать и перешел на использование defmacro. Мне повезло, что в kawa была эта конструкция.
V(
Автора ругают за то что он "opinionated", так вот он damn right opinionated почти везде.
PG
(defun t (a b c &rest r)
`((,a ,b ,c) ,(if (nullp r) '() (apply t r))))
`((,a ,b ,c) ,(if (nullp r) '() (apply t r))))
(defun goal (a b c &rest r)
(cons (list a b c)
(if (null r)
'()
(apply #'goal (cons b (cons c r))))))
ХЛ
(defun goal (a b c &rest r)
(cons (list a b c)
(if (null r)
'()
(apply #'goal (cons b (cons c r))))))
PG
Как получить
Из
((1 2 3)
(2 3 4)
(3 4 5)
(4 5 6))
Из
(1 2 3 4 5 6)
господа, не долбимся в глаза, начальные условия не просто порубить список на чанки по 3 элемента
A
нужно плывущее окно
A
у меня вроде где-то было готовенькое, но для схемы
A
(define (sliding-lists my-list count)
(unfold (lambda (x) (= count (first x)))
(lambda (x) (second x))
(lambda (x) (list (+ (first x) 1) (cdr (second x))))
(list 0 my-list)))
ХЛ
нужно плывущее окно
maplist )
A
(define (sliding-map func list window)
(apply map func (sliding-lists list window)))
A
это у меня в том же файле следующим идет
ХЛ
Почему-то мне кажется, что можно провести какой-то трюк вроде &whole в defun
ХЛ
Но не могу вспомнить как
AE
господа, не долбимся в глаза, начальные условия не просто порубить список на чанки по 3 элемента
Ааа блин.
VL
Я конечно извиняюсь, но можно спросить? Зачем здесь макрос? Не лучше ли для таких вещей просто функция?
ХЛ
(defun test (a &rest r)
(let ((b (first r)) (c (second r)))
`((,a ,b ,c) ,@(when (third r) (apply #'test r)))))
V(
Я конечно извиняюсь, но можно спросить? Зачем здесь макрос? Не лучше ли для таких вещей просто функция?
Учился в макросы и