169 похожих чатов

// дано: let exampleSeq = seq{ 555; 11 } //

задача:
// получить из exampleSeq число 555.011

// решение:
let high'f = exampleSeq |> Seq.take 1 |> Seq.exactlyOne |> float
let low'i = exampleSeq |> Seq.tail |> Seq.take 1 |> Seq.exactlyOne
let low'f = float low'i

high'f |> printfn "//=> high'f = %f"
//=> 555.000000
low'i |> printfn "//=> low'i = %i"
//=> 11
low'f |> printfn "//=> low'f = %f"
//=> 11.000000
printfn ""

pown 10 (low'i.ToString().Length + 1)
|> float
|> (/) low'f
|> (+) high'f
|> printfn "//=> result = %f"
//=> result = 555.011000


чёт как-то хреново это выглядит...
[
особенно через строку кол-во знаков у числа получать :)
мне просто лень было делать отдельную ф-цию с нормальным получением числа знаков
]
может более православные способы для этого есть?

https://sharplab.io/#v2:DYLgZgzgNALiBOBXAdlAJiA1AHwPS4AJAWEEAYQQXhBA+EBAFgAoYAUxgJYYA8BDAWwAdGBlBgEcCAXgIRhAbwIBWeQG4CARmUEAvnTr4CgdhASpQOIgJGrR2B+EAqBuEEDCIIcAcIICEQQDIgBe7oLtufBoJEPAQRArCjl5ADoABlUtM0JAARBAVhBACRAEsnsE00ZmFgALAEsAcxyAcjAxT05eAWEWWrq67AA+Aj8wmA4AawYVAiaW4TCvAGMYYABPAHlkbr6wYAB7Dhg6LNqFgHdivJZxLyrfGr7W9rzgXubjzu61I4Hh0cnplaY1+c2y8rnF5g2tmPyiqVzgQePA8sgYGBkAQAET4UTNAElMriACkYBhKzeWxYfVB4Mh0LhuARBF+23KqLymPo2I+eLBEKhsPhzV+HzRGLo+KZRJp3Le0OUEQIAApyWEACrzfgwRkFUUASjCABkGMgCjAcgRMCpFXRZgslgbmqLcIqyXSTWLMBakaVrTzCSySc14AwIIhgMxOfzYgRDIBFEEcBEAXCAkUMAWkcIUAoiCJSiAJhAQoBZEBjBETgGkQQDMIFZAPIgRCcYWL2kIAG1S7UKAEKIBGEFSlADCUSHgCjjiFFDNjD1kjyb0ZAjFETBG7gSsJAIllsxhcBBA+v9LEAPCBkBJTjttkJWVKuWuZ4LEBITucURxEY/OMg2QByIARACIgkcAYiD2O8BAiUOLLkhWK+Z5dTtYdipOkAHjpOuiDqGw6VgAupWy4UIAbCAJCGtbWAk67mHEJDJkEuFkJm64BJYNb7sQ+YEGmFDZiECRts4AD8QA

8 ответов

33 просмотра

Деление на 10

dd- Автор вопроса
dd- Автор вопроса

ты про отдельную ф-цию, в которой делим на 10 до тех пор пока целая часть в ноль не улетит и т.о. получать число знаков в числе? это вербозно очень - я ж написал, что ради примера мне лень было эту ф-цию писать (она тупо отвлекала бы от задачи) вопрос задан с целью "а вдруг есть какой-то волшебный метод у Seq, который я в упор не вижу, изящно решающий задачу" :)

dd
ты про отдельную ф-цию, в которой делим на 10 до т...

Такого метода нет, но ты можешь попробовать fold

По какому правилу 11 стангвится 0.011?

dd- Автор вопроса
ORTO
По какому правилу 11 стангвится 0.011?

количество знаков в числе +1 11 -> 0.011 (2 + 1 -> 11 / 10^3)

dd- Автор вопроса

Похожие вопросы

Обсуждают сегодня

30500 за редактор? )
Владимир
47
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
1
Он в одиночку это дело запилил или была какая-то команда?
Aquinary
12
~ 2m21s  nix shell github:nixos/nixpkgs#stack ~  stack ghc -- --version error: … while calling the 'derivationStrict' builtin at /builtin/derivation.nix:...
Rebuild your mind.
6
Всем привет, нужна как никогда, нужна помощь с IO в загрузчике. Пишу в code16 после установки сегментных регистров, пишу вывод символа. Пробовал 2 варианта: # 1 mov $0x0E, %a...
Shadow Akira
14
Карта сайта