А, хотя норм

let rec parse arr acc = match arr with |x when x|>Seq.isEmpty->acc |x ->let hd=x|>Seq.head let tl=x|>Seq.tail 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)))

ну вот это уже лучше )

В целом, задача на самом деле на потоки событий

В целом, задача на самом деле на потоки событий

http://ideone.com/hCOoYr

жестко )

жестко )

почему?

ну я бы быстро не сделал бы такое решение )

ну я бы быстро не сделал бы такое решение )

Я вспоминал станадртную библиотеку довольно долго, ну и по сравнению с возможностью выйти из циклической операции, тут все же делается одна лишняя итерация, из-за того, что takeWhile (fun x-> x <> 0) почему-то не возвращает само значение 0, а мне не хочтелось описывать свою ф-цию)

почему в стандартной библиотеке нет takeUntil?

http://fable.io/blog/How-Fable-Helped-Kids.html

http://fable.io/blog/How-Fable-Helped-Kids.html

Круто. Кулстори это приятно

Хочу на выходных попробовать на Fable что-нибудь написать.

Хочу на выходных попробовать на Fable что-нибудь написать.

+ @SherievAkhmed еще раз запощу инструмент, который думаю поможет скомпилить html в fable react dsl, если и не полностью решит проблему, то хотя бы поможет ее решить https://github.com/mbylstra/html-to-elm/

А правильно я понимаю, что тайппровадеры в рантайме уже не проверяют типы и тд? Только при компиляции

А, Дмитрий же в питере сейчас. )

У вас там минимитап?)

#dotnext жи

Ааа. Интересно к нам оттуда придёт кто-нибудь

Подскажите, кто делал, как у вас выглядит fsproj под netstandard? У меня нагеты не видит

Подскажите, кто делал, как у вас выглядит fsproj под netstandard? У меня нагеты не видит

https://github.com/Dolfik1/FunHttp/blob/master/FunHttp/FunHttp.fsproj

спасибо, плохо только, что у меня так же

спасибо, плохо только, что у меня так же

А в чём проблема собственно?

dotnet restore не работает?

не совсем: рестор работает, нагеты загружаются, но ни ионид, ни студия не видят нэймспейсов

не совсем: рестор работает, нагеты загружаются, но ни ионид, ни студия не видят нэймспейсов

Так в студии кор ещё не работает

у меня превью 15.3

А у тебя файлы добавлены?

В проект

Compile

что ты имеешь ввиду?

Ну посмотри мой код

<ItemGroup>     <Compile Include="Http.fs" />   </ItemGroup>

да, уже увидел

Такое есть у тебя с твоим файлом?

нет, проглядел это. сейчас добавил, теперь билд проходит, но ошибку всё равно пишет

спасибо

попробую перенести весь проект и посмотрю тогда, заработает ли на самом деле или нет

Привет!

Привет)

https://github.com/ionide/ionide-web внезапно

а зачем?

Ваше вчерашнее обсуждение про температуру интересное, спасибо.

У меня тоже такая задачка есть, но чуть сложнее. У меня есть программа, которая чистит временный каталог. Ей можно отправлять запросы типа "освободи 100 МБ места, начиная с самых старых файлов". Соответственно, я для этого нахожу сумму объёмов всех записей во временном каталоге до тех пор, пока она не превысит размер в 100 МБ. "Найти объём места, которое освободится на диске при удалении записи" — это дорогая операция (потому что она лезет на диск, да к тому же там рекурсивная функция для каталогов, а для корректной работы со сжатыми файлами приходится лезть в интероп с Win32 API), так что ленивое прерывание задачи после того, как набралось больше 100 МБ, в данной задаче критично. В итоге сейчас я сделал императивное решение с прерыванием, потому что красивое чистое решение сделать не смог. Кажется, хаскельные кондуиты должны элегантно решать эту задачу, но реализации кондуитов для F# я пока не видел.

Кто-нибудь в этих кондуитах разбирается? Поможете спроектировать красивое чисто функциональное решение?

У меня тоже такая задачка есть, но чуть сложнее. У меня есть программа, которая чистит временный каталог. Ей можно отправлять запросы типа "освободи 100 МБ места, начиная с самых старых файлов". Соответственно, я для этого нахожу сумму объёмов всех записей во временном каталоге до тех пор, пока она не превысит размер в 100 МБ. "Найти объём места, которое освободится на диске при удалении записи" — это дорогая операция (потому что она лезет на диск, да к тому же там рекурсивная функция для каталогов, а для корректной работы со сжатыми файлами приходится лезть в интероп с Win32 API), так что ленивое прерывание задачи после того, как набралось больше 100 МБ, в данной задаче критично. В итоге сейчас я сделал императивное решение с прерыванием, потому что красивое чистое решение сделать не смог. Кажется, хаскельные кондуиты должны элегантно решать эту задачу, но реализации кондуитов для F# я пока не видел.

Я писал похожее. Писал в базу с буфером на диске (база лежала иногда).

Писал комбинатор для hopac stream - но у меня было проще, я мог количество файлов прикинуть

Наверное можно его модифицировать и передавать не количество параметром, а функцию.

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

let parse (input:string) = let reduction left right = if left = System.Int32.MinValue then right else match (abs left, abs right) ||> compare |> sign, left |> sign with | -1, _ | 0, 1 -> left | _ -> right let tryReduce reduction source = if source |> Seq.isEmpty then None else source |> Seq.reduce reduction |> Some input.Split([|' '|], System.StringSplitOptions.RemoveEmptyEntries) |> Seq.map int |> Seq.takeWhile ((<>) 0) |> tryReduce reduction // Можно заменить на: //|> Seq.fold (fun acc item -> // acc // |> Option.map (reduction item) // |> Option.orElseWith (fun () -> Some item)) // None |> Option.defaultValue 0

в vscode с ionide возможно сделать какие то кнопки или бинды чтобы билдить / запускать проект автоматически? знаю знаю надо написать что-то вроде msbuild project, но каждый раз так делать довольно муторно, как-то уже привык что в нормальных IDE все билдится и запускается по одной кнопочке...

в vscode с ionide возможно сделать какие то кнопки или бинды чтобы билдить / запускать проект автоматически? знаю знаю надо написать что-то вроде msbuild project, но каждый раз так делать довольно муторно, как-то уже привык что в нормальных IDE все билдится и запускается по одной кнопочке...

посмотри на dotnet watch

если нет dotnet cli, то watch по моему был в тасках у VSCode

посмотри на dotnet watch

это что такое расширение?

это что такое расширение?

да, это расчширение, ща

https://github.com/aspnet/DotNetTools

https://github.com/aspnet/DotNetTools/tree/dev/src/Microsoft.DotNet.Watcher.Tools конкретнее

https://github.com/ionide/ionide-web внезапно

Можно выгружать на fsharplang.ru? :D

Можно выгружать на fsharplang.ru? :D

Я вот об этом и подуал

но там очень старый fable, еще версии 0.1.*

да, это расчширение, ща

чет нет такого расширения в списке расширений в вскоде

чет нет такого расширения в списке расширений в вскоде

посмотри ссылки, это расширение для .net cli, а не для vscode)

посмотри ссылки, это расширение для .net cli, а не для vscode)

у меня линукс, какой .net

у меня линукс, какой .net

у тебя арч?

у тебя арч?

ага

и dotnet cli не устанавливается?

ERROR: S client not available

да

тогда печально

.net core на арч не пашет

юзаю моно

да, core может и не пахать, но сама утилита есть?

там можно и из нее моно юзать

она не ставится без кора

ок

тогда пока никак, вариант написать fake скрипт

там есть watch

fake скрипт?

ага, ща

что это?

http://fsharp.github.io/FAKE/

компилятор фш

http://fsharp.github.io/FAKE/watch.html

компилятор фш

билд скрипт фактически, не компилятор)

Но это типа тоже надо будет руками писать каждый раз какую-то команду? В чем тогда фишка?))

Но это типа тоже надо будет руками писать каждый раз какую-то команду? В чем тогда фишка?))

поясни?

поясни?

что?

какую команду каждый раз? Не понятно

какую команду каждый раз? Не понятно

ту которую ты напишешь в этом fake скрипте

очевидно же

запускаешь один раз как-нибудь типа 'build watchMyTask' и на каждое изменение файлов, которые ты ккажешь у тебя может запускаться все что захочешь хоть тесты, хоть exe-шник ты только к нему дебагер при аттач и не надо каждый раз вводить команду

я тебе скинул ссылку на watch

для FAKE

я тебе скинул ссылку на watch

так он же не работает без .net cli я так понял

http://fsharp.github.io/FAKE/watch.html

это работает

это для dotnet cli не работает

Зочем ставить линух, если ты хочешь на кнопки давить, а не командную строку пользовать

let generateDocs() = tracefn "Generating docs." Target "GenerateDocs" (fun _ -> generateDocs() ) Target "Watch" (fun _ -> use watcher = !! "docs/**/*.*" |> WatchChanges (fun changes -> tracefn "%A" changes generateDocs() ) System.Console.ReadLine() |> ignore //Needed to keep FAKE from exiting watcher.Dispose() // Use to stop the watch from elsewhere, ie another task. ) > build Watch

все