причем взять так, что бы не нарушилась последовательность, как они там изначально стояли в векторе(массиве).

Если производительность не важна, то можно просто через две сортировки сделать.

Сохраняешь индексы, сортируешь по значениям, отсекаешь, сортируешь по индексам.

Что-то более сложное ищется по запросу "k-th order statistic".

mapi жеж

И кортежи

mapi жеж

Ага.

Это был обучающий момент!

Пусть @the_RAMZAY сам напишет, это несложно. :)

угу, там попробую навертеть

угу, там попробую навертеть

Пиши, если что, подскажем.

я вот думаю, стоит ли накидывать говна

Не стоит. ?

Для накидываний есть флудилка. @dotnettalks

@the_RAMZAY let inline takeMaxByAbs count items = let partitionWhile predicate items = let rec partitionWhile items acc = match items with | h::t when predicate h -> h::acc |> partitionWhile t | _ -> acc, items partitionWhile items [] items |> Seq.fold (fun (acc, index) item -> acc |> partitionWhile (snd >> abs >> (>) (abs item)) ||> fun smaller greater -> smaller |> List.fold (fun state p -> p::state) ((index, item) :: greater) |> fun p -> (if index < count then p else p.Tail), index + 1 ) ([], 0) |> fst |> List.sortBy fst |> List.map snd

слишком сложно

выше @gsomix предлагал намного более простое решение

В один проход.

@the_RAMZAY let inline takeMaxByAbs count items = let partitionWhile predicate items = let rec partitionWhile items acc = match items with | h::t when predicate h -> h::acc |> partitionWhile t | _ -> acc, items partitionWhile items [] items |> Seq.fold (fun (acc, index) item -> acc |> partitionWhile (snd >> abs >> (>) (abs item)) ||> fun smaller greater -> smaller |> List.fold (fun state p -> p::state) ((index, item) :: greater) |> fun p -> (if index < count then p else p.Tail), index + 1 ) ([], 0) |> fst |> List.sortBy fst |> List.map snd

?

Klei Кинешь в gists?

В телеге неудобно код читать.

Хотя вру, в конце опять сортировка.

Сек.

Ух ты, пасибо! @Kleidemos

https://gist.github.com/kleidemos/495966ba59cbac5c265e01e31797a000

Чет как-то жестко

Ну всегда можно декомпозировать как человеку удобно.

Ну и там не один проход, похоже

По набору элементов изначальному один проход.

Вот по аккумулятору дохрена ходит.

Аккумулятор там страдает,да

У меня тут саенс... и крутой комп, в который я втарил много денег... И главное результат в конце на бумашке!

Наверное стоило его на что-нибудь сортируемое заменить.

@Kleidemos твой метод просто космос! ^_^

А потом я ещё графики на F# нарисую. Уииииии

@Kleidemos твой метод просто космос! ^_^

*Здесь должен быть подзрительный стикер, который противоречит политике руководства чата*

С mutable можно написать попроще, по идее

С mutable можно написать попроще, по идее

Ага, F# тем и хорош, что можно выбирать парадигму

Но там тоже с изнасилованием аккумулятора, к сожалению

@Kleidemos твой метод просто космос! ^_^

Ну вот, свой теперь не напишешь. :(

Я начал обджумывать свой

Там что-то связанное с очередями

И текущим минимумом

Вместо списка в аккумуляторе надо бы zipper юзать. Будет меньше изнасилований, правда нужно достать zipper.

Все равно на каждом шаге фильтрация по массиву из 5 элементов...

Все равно на каждом шаге фильтрация по массиву из 5 элементов...

Это сейчас про версию с очередями?

Угу

Идея в том, что набиваем до 5, потом проверяем на текущий минимум

Но фильтр по-любому нужен

Для отбрасывания мусора

Поэтому, похоже, не обойтись без перебора

Но зато будет работать на последовательностях любой длины

> +20,810 −28,594 Сайм пишет код как молодой.

https://github.com/Microsoft/visualfsharp/pull/3561

@Dolfik Видел? Твой issue поправили.

@Dolfik Видел? Твой issue поправили.

Не видел, круто :)

А в DU можно запихнуть методы? Типа фабричного?

А в DU можно запихнуть методы? Типа фабричного?

Да.

member x.CreateDU()

member x.CreateDU()

Тогда уж static member CreateDU () = ...

Посмотрите, о чем твитнул(а) @dsyme: https://twitter.com/dsyme/status/905942283786350592?s=09

Есть надежда, что скоро Сайм возьмётся за новые фичи и F#4.2 :)

Есть надежда, что скоро Сайм возьмётся за новые фичи и F#4.2 :)

А что там вкусного в F# 4.2?

И я не понял, по какому принципу срочность для issue выставляется? Для подсказки в дебаггере он поставил Soon, а для бага компилятора с рекурсивным модулем Later

А что там вкусного в F# 4.2?

Анонимные записи, например.

Ы?

Анонимные записи, например.

А dynamic?

Без явного объявления типа записи, шоле?

Без явного объявления типа записи, шоле?

Как в C#: var asd = new { a = "x", b = "y" }

Без явного объявления типа записи, шоле?

Да. https://github.com/fsharp/fslang-design/blob/master/RFCs/FS-1030-anonymous-records.md

Привет!

dynamic в F# я как-то слабо представляю

О, как вас тут много

Я вот вообще с .NET не знаком.

С Haskell только слегка

Да. https://github.com/fsharp/fslang-design/blob/master/RFCs/FS-1030-anonymous-records.md

Самая ожидаемая фичи, наверное.)

Я вот вообще с .NET не знаком.

Бывает,чо

Есть смысл учить F#?

Есть смысл учить F#?

Смотря для чего

Или запнусь?

Ну после Haskell F# должен легко зайти.

Только вот с анонимными рекордами одно непонятно

Есть смысл учить F#?

Надо из задач исходить. Тебе нужен .NET? :)

Допустим, у меня есть рекорд {A;B;C}

И я должен вернуть его из функции

А, хотя норм

{||} жеж

Надо из задач исходить. Тебе нужен .NET? :)

Мне скорее нужна что-то более кроссплатформенное

Анонимные записи скорее всего нельзя будет вытаскивать за пределы функции

Как в C# собственно

Можно

Там просто синтаксис объявления другой

Анонимные записи скорее всего нельзя будет вытаскивать за пределы функции

Ты бы почитал RFC. :)

Чтобы путаницы в рекордах не было

А, ну да, вижу

Мне скорее нужна что-то более кроссплатформенное

Тогда можно попробовать F#. Без знания .NET, конечно, можно и запнуться пару раз, но не сильно. :)

Мне скорее нужна что-то более кроссплатформенное

Есть Mono и .Net Core

Есть Mono и .Net Core

Знаю, у меня не Windows

Возможностей довольно много, мобилки, веб с Websharper