SA
Size: a a a
2020 February 25
SA
ну тогда не слишком понятно лул типа
SA
по сколько группировать и проч
O
loop решил проблему
SA
но в целом не вижу проблем
SA
SA
ну вот да
SA
просто лупом
O
не использовал форму :on еще
O
(loop
:for l1 on '(1 2 3 4 5 6)
:when (>= (length l1) 3)
:collect (subseq l1 0 3))
:for l1 on '(1 2 3 4 5 6)
:when (>= (length l1) 3)
:collect (subseq l1 0 3))
O
Маштабируему решение
O
перед сном еще задачка, как найти список с нибольшей суммой, вернуть сумму и исходный список?
O
я могу сумму списка вернуть через
... :maximize (reduce #'+ l)
O
(loop :for i :in (loop
:for l :on (number->list (parse-integer (format nil "~{~d~}" (load-as-list "./files/pe-008"))))
:when (>= (length l) 13)
:collect (subseq l 0 13))
:maximize (sum-of-list i))
O
Ночньго Эйлера решаю :)
PG
(loop
:for l1 on '(1 2 3 4 5 6)
:when (>= (length l1) 3)
:collect (subseq l1 0 3))
:for l1 on '(1 2 3 4 5 6)
:when (>= (length l1) 3)
:collect (subseq l1 0 3))
Решение очевидное, но length O(n)
ХЛ
(loop
:for l1 on '(1 2 3 4 5 6)
:when (>= (length l1) 3)
:collect (subseq l1 0 3))
:for l1 on '(1 2 3 4 5 6)
:when (>= (length l1) 3)
:collect (subseq l1 0 3))
(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))))
ХЛ
Мб бред, но что-то такое в голову пришло
a
Как получить
Из
((1 2 3)
(2 3 4)
(3 4 5)
(4 5 6))
Из
(1 2 3 4 5 6)
Можно
но по-настоящему хорошего готового решения так до сих пор и нет.
(series:chunk 4 1 (series:scan-range :from 1 :upto 6))но по-настоящему хорошего готового решения так до сих пор и нет.