SA
Ну ткни n
appending вместо этого у меня do стоит и цикл зависает безвозвратно..Size: a a a
2020 December 12
O
SA
ничего не понятно
SA
проблема есть?
SA
CL-USER> (defun counter (n)
(loop :for i :from 1 :to n
:append (loop :for j :from 1
:for product := (* i j)
:while (< product n)
:collect (list i j product))))
COUNTER
CL-USER> (defun no-repeat-counter (n)
(loop :for i :from 1 :to n
:append (loop :for j :from i
:for product := (* i j)
:while (< product n)
:collect (list i j product))))
NO-REPEAT-COUNTER
CL-USER> (counter 10)
((1 1 1) (1 2 2) (1 3 3) (1 4 4) (1 5 5) (1 6 6) (1 7 7) (1 8 8) (1 9 9)
(2 1 2) (2 2 4) (2 3 6) (2 4 8) (3 1 3) (3 2 6) (3 3 9) (4 1 4) (4 2 8)
(5 1 5) (6 1 6) (7 1 7) (8 1 8) (9 1 9))
CL-USER> (no-repeat-counter 10)
((1 1 1) (1 2 2) (1 3 3) (1 4 4) (1 5 5) (1 6 6) (1 7 7) (1 8 8) (1 9 9)
(2 2 4) (2 3 6) (2 4 8) (3 3 9))
O
У меня лимита итерации нет
Вот эта форма виснет
(loop :for i :from 1
:do (loop :for j :from 1
:while (< (* i j) 9876)
:collect (list i j (* ij))))
Вот эта форма виснет
VL
макроэкспандни и посмотри че там
AK
Похоже, настало время return-from 😊
SA
...ну нет лимита так добавь
SA
В чем проблема то
SA
И убери do сделай append
SA
???
SA
Бред какой то
O
я не волшебник, я только учусь :) лисповое обострение на волне упаковки Guix пакета для pgloader
2020 December 13
n
O
у меня нет лимита итерации (:for i :from 1 :to n)
только проверка на произведение нужна (:when (< product n))
только проверка на произведение нужна (:when (< product n))
n
у меня нет лимита итерации (:for i :from 1 :to n)
только проверка на произведение нужна (:when (< product n))
только проверка на произведение нужна (:when (< product n))
Можете написать словами условие задачи, из примера неясно какой список возвращает функция?
O
Можете написать словами условие задачи, из примера неясно какой список возвращает функция?
вернуть список ((множетель множетель произведение)...), до тех пор пока произведение меньше N
SA
звучит как лимит итерации если чо
n
