MA
На самом деле и нам уже нужно понемногу переходить на удалёнку )
Нас уже переводят всех кого могут
Size: a a a
2020 March 13
MA
Впн наше все
AL
Я между делом что-то написал, но не могу сказать что получилось сильно короче
AL
Ну и расчёт расстояния от балды
ST
Я между делом что-то написал, но не могу сказать что получилось сильно короче
да вроде и тупо в лоб нормально получается
(->> (for [{name-i :name, city-i :city, lat-i :lat, lon-i :lon :as place-i} places
{name-j :name, city-j :city, lat-j :lat, lon-j :lon :as place-j} places
:when (not= name-i name-j)]
(let [coordinate-i (c-l-location lat-i lon-i)
coordinate-j (c-l-location lat-j lon-j)
dist-meters (calc-dist coordinate-i, coordinate-j)
dist-miles (meters->miles dist-meters)]
{:meters dist-meters
:miles dist-miles
:places [(assoc place-i :coordinate coordinate-i)
(assoc place-j :coordinate coordinate-j)]}))
(into []))AL
Я богомерзкие мили не стал реализовывать)
ST
да вроде и тупо в лоб нормально получается
(->> (for [{name-i :name, city-i :city, lat-i :lat, lon-i :lon :as place-i} places
{name-j :name, city-j :city, lat-j :lat, lon-j :lon :as place-j} places
:when (not= name-i name-j)]
(let [coordinate-i (c-l-location lat-i lon-i)
coordinate-j (c-l-location lat-j lon-j)
dist-meters (calc-dist coordinate-i, coordinate-j)
dist-miles (meters->miles dist-meters)]
{:meters dist-meters
:miles dist-miles
:places [(assoc place-i :coordinate coordinate-i)
(assoc place-j :coordinate coordinate-j)]}))
(into []))работу не проверял, но смысл вроде ясен
AL
У тебя нет проверки на отсутствие значений, она как я понял важная
AI
в :let & :when фора все проверки вынести и вообще будет пара строк
ST
У тебя нет проверки на отсутствие значений, она как я понял важная
у нас такая проверка спекой делается «до того как»
ну добавится один
ну добавится один
:when, что это меняетAL
в :let & :when фора все проверки вынести и вообще будет пара строк
Пкжите
AL
Я редко это форму использую, хотел бы понят
ST
(->> (for [{name-i :name, city-i :city, lat-i :lat, lon-i :lon :as place-i} places
{name-j :name, city-j :city, lat-j :lat, lon-j :lon :as place-j} places
:when (and name-i, city-i, lat-i, lon-i
name-j, city-j, lat-j, lon-j
(not= name-i name-j))
:let [coordinate-i (c-l-location lat-i lon-i)
coordinate-j (c-l-location lat-j lon-j)
dist-meters (calc-dist coordinate-i, coordinate-j)]]
{:meters dist-meters
:miles (meters->miles dist-meters)
:places [(assoc place-i :coordinate coordinate-i)
(assoc place-j :coordinate coordinate-j)]})
(into []))AI
этож лист компрехеншен (он же лист монада), там и гарды и леты можно ) чтобы показать, надо задачу выяснять. но смысл в том, что ты с легкостью внутри фора делаешь локальные биндинги и накладываешь условия попадания элементов в результирующий список
AL
Задача типа в том что у тебя есть два списка локаций, и надо сделать список дистанций между каждой к каждой
AI
Сергей выше вроде идею правильно выразил, только у него будут дубли А-Б и Б-А, но их тоже легко убрать в :when
AI
Но он бывший скалист, знает про лист-компрехеншены и монады, и недавно еще читал )
ST
а в исходном коде есть антидубли?
AI
не знаю, не вчитывался в исходный. просто отметил этот момент в твоем