g
Size: a a a
2021 April 15
AH
так эта... я может тупой дохуя
...
|> Seq.sortWith (fun (x1, y1, l1) (x2, y2, l2) ->
if x1 > x2 then 1
elif x1 = x2 then
if y1 > y2 then 1
elif y1 = y2 then
if l1() > l2() then 1
...
)
...
|> Seq.sortWith (fun (x1, y1, l1) (x2, y2, l2) ->
if x1 > x2 then 1
elif x1 = x2 then
if y1 > y2 then 1
elif y1 = y2 then
if l1() > l2() then 1
...
)
AH
ну ты понял
AH
там тривиально
AH
if x1 > x2 then 1
elif x1 < x2 then -1
else
if y1 > y2 then 1
elif y1 < y2 then -1
else
let l1 = l1()
let l2 = l2()
if l1 > l2 then 1
elif l1 < l2 then -1
else 0
elif x1 < x2 then -1
else
if y1 > y2 then 1
elif y1 < y2 then -1
else
let l1 = l1()
let l2 = l2()
if l1 > l2 then 1
elif l1 < l2 then -1
else 0
g
Переслано от Дмитрий Башинский...
как правильно использовать lazy в сортировке? и можно ли вообще
у меня есть
|> Seq.sortByDescending ^ fun x -> (x.Score, x.Time, lazy (HardComutation(x)))
но lazy по ссылке сравнивается
у меня есть
|> Seq.sortByDescending ^ fun x -> (x.Score, x.Time, lazy (HardComutation(x)))
но lazy по ссылке сравнивается
AH
вот в этом сравнении твой лейзи вызывается только если сравнения по первым двум параметрам не выявили победителя
@BashkaMen
@BashkaMen
AH
да, тут даже без тупля
AH
if x.Score > y.Score then 1
elif x.Score < y.Score then -1
else
if x.Time > x.Time then 1
elif x.Time < x.Time then -1
else
let x = HardComputation x
let y = HardComputation y
if x > y then 1
elif x < y then -1
else 0
elif x.Score < y.Score then -1
else
if x.Time > x.Time then 1
elif x.Time < x.Time then -1
else
let x = HardComputation x
let y = HardComputation y
if x > y then 1
elif x < y then -1
else 0
AH
последний иф можно на CompareTo заменить
x.CompareTo y
x.CompareTo y
AH
но конечно можешь продолжать делать кастомные операторы над лейзи
AH
(лучше не надо)
VS
Да он явно настойчивый
VS
Умеет отстаивать собственную точку зрения
AH
это неплохо да, но где мы будем, если не наставим человека на путь истинный
ДБ
я сделал подобное в lazyCompareTuple
AH
при этом аллоцировал 3 функции на ровном месте.