Или тайп провайдеры не умеют так?

@Dolfik WriteTo?

@Dolfik WriteTo?

Это где?

А почему не использовать нормальные сериализаторы вместо тайп провайдера?

@Dolfik По идее, этот метод у инстанса твоего типа должен быть.

Вроде, через свойство JsonValue доступно.

@Dolfik По идее, этот метод у инстанса твоего типа должен быть.

Только Parse и Load

А почему не использовать нормальные сериализаторы вместо тайп провайдера?

А зачем, если нужно один файл один раз сериализовать/десериализовать?

Типа: let x = Settings.Load(...) x.JsonValue.WriteTo(textWriter)

Settings.GetSample().JsonValue.WriteTo(...)

Вот так)

Ага, это оно.

А зачем, если нужно один файл один раз сериализовать/десериализовать?

В смысле прочитать сторонний Jason поменять одно значение и записать?

В смысле прочитать сторонний Jason поменять одно значение и записать?

Ну типа того

@Dolfik Так ты загрузку из файла починил?

@Dolfik Так ты загрузку из файла починил?

Нет пока)

Я тут в перерывах между переносом базы пишу на фшарпе)

Ах ты!

Парни у меня тут одна задачка есть. Я ее решил на F# но такое ощущение что решение не очень.

Кто хочет решить задачу в F# стиле?

Кто хочет решить задачу в F# стиле?

покажи что ли)

// Необходимо из последовательности значений температуры выбрать наиболее близкое к нулю температуру. // При одинаковом значении отрицательной и положительной температуры (-2 и 2) надо выбирать положительную.(2) // При отсутствии значений необходимо возвращать нулевое значение

проспойлерить решение сразу? Или сначала хотите сами попробовать решить?

А

а данные на вход в каком виде?

let temperatures="5 -3 -6 7 -1 8 9"

обычная строка

строка, разделители пробелы, всегда

да

ну и все целочисленное

```s.Split(' ')|>Seq.map (fun x-?int.Parse(x),Math.Abs(x))|>Seq.minBy snd|>Seq.map first

Тьфу

ghbvthyj nfr

примерно так

не прокатит - ответ будет 1

хотя должно быть "-1"

А, наиболее близкую из положительных

ааа

Тогда надо чуть переписать

`"5 -3 -6 7 -1 1 8 9".Split(' ')|>Seq.map int|>Seq.map(fun x-?x,Math.Abs(x)))|>Seq.sortByDescending fst|>Seq.minBy snd |> fst

Пилять

Как тут код писать?

а так работает или нет

` x3

Как тут код писать?

в конце тоже `

тут код в много строк

короч по три ` в начале и конце

сорт в принципе не нужен - а так работает

много строк если, то три `

если 1 строка, то одна `

ща

подправил, вот:

open System let temperatures="5 -3 -6 7 -1 8 9" //let temperatures="" let closedToZero temperatures= if String.IsNullOrEmpty(temperatures) then 0 else temperatures.Split([|' '|]) |> Seq.map(fun x->int(x), Math.Abs(int(x))) |> Seq.minBy snd |> fst

но вот что лично мне не нравится в этом решении это то что если список большой то мы все равно будем итерировать до конца хотя понятно что если есть хотя бы один ноль то на этом можно было бы остановиться

а ну да - еще в этом решении не соблюдается условие что если есть -1 и 1 то надо всегда выбирать 1

open System let temperatures="5 -3 -6 7 -1 8 9" //let temperatures="" let closedToZero temperatures= if String.IsNullOrEmpty(temperatures) then 0 else temperatures.Split([|' '|]) |> Seq.map(fun x->int(x), Math.Abs(int(x))) |> Seq.minBy snd |> fst

http://ideone.com/rOw9gd

но вот что лично мне не нравится в этом решении это то что если список большой то мы все равно будем итерировать до конца хотя понятно что если есть хотя бы один ноль то на этом можно было бы остановиться

точно

не продумано

Хоть что-то про F#

а dotnet разве сегодня?

http://ideone.com/rOw9gd

с takeWhile 0 не попадает в выборку

с takeWhile 0 не попадает в выборку

ага, я заметил)

Я поэтому сорт и сделал

Чтобы первый min вернул

Опять что-то про ботов, azure, и data sience?

ERROR: S client not available

Я поэтому сорт и сделал

с sort много оверхеда

Сорт убивает смысл проверки на ноль

мы делаем прохождение

Тогда условие с положительной температурой не будет соблюдаться

почему же - вот решение Романа соблюдает

там теперь takeWhile добавился, который все ломает

я сделал такое же решение как у Романа - но не так кратко и элегантно - разложил все по отдельности )

А где решение Романа?

http://ideone.com/rOw9gd

тут

open System let temperatures="5 -3 -6 7 -1 8 9" // let temperatures="" let tempArray=if String.IsNullOrEmpty(temperatures) then Seq.empty else temperatures.Split([|' '|]) |> Seq.map int let closedToZeroByAbs x y = if abs x < abs y then x else y let closedToZero x y = if abs x = abs y then max x y else closedToZeroByAbs x y let closedToZeroFromSequence tempArr=if Seq.isEmpty tempArr then 0 else Seq.reduce closedToZero tempArray closedToZeroFromSequence tempArray |> printfn "%i" - решение хоть и аналогичное но синтаксически хуже чем у Романа.

let res="5 -3 -6 7 -1 1 8 9".Split(' ')|>Seq.map int|>Seq.map(fun x->(x,Math.Abs(x)))|>Seq.fold (fun acc (x,y)->match acc with |0,0->x,y |n,a when y<a->x,y |n,a when y=a->if(x>n) then (x,y) else acc |_->acc ) (0,0) |>fst

Во, получилось

Без сорта

В целом можно и без первого мапа обойтись

тут собственно он кортеж создает и по прежнему полное прохождение ведь делает даже если 0 встретит

ну т.е. если у тебя гигабайт данных и первое значение 0 то проходить весь гигабайт нет смысла

На нолике мы должны уйти из цикла?

крайне желательно

Тогда рекурсия

просто на C# это ничего не стоит сделать

в императивном стиле

let res="5 -3 -6 7 -1 1 8 9".Split(' ') |> Seq.map int|>List.ofSeq let rec parse arr acc = match arr with |[]->acc |hd::tl->if(hd=0) then 0 else match hd,acc with |x,0->parse tl x |x,y when Math.Abs(x)=Math.Abs(y)->if(x>y) then x else y |x,y->parse tl (Math.Min(Math.Abs(acc),Math.Abs(x))) let r=parse res 0

я тоже такое же решение получил

но все упирается в этот гадский List.ofSeq

И даже упростить слегка можно, по идее

Можно без него

он ведь по сути еще хуже - создает в памяти список

для Seq match |[] не получается сделать (

ну т.е. вместо него можно Seq.isEmpty

но вот |hd::tl ->

Of

Ща