IC
Довольны ли слоны?
Size: a a a
2020 April 28
оГ
Андрей Вилинский
логитек прямой был или почему дебильная? я тут себе K860 заказал, жду вот
Прямой и ваще через пару недель начали кнопки отваливаться
2020 April 29
SN
let private compact2UInt64 (c: string) =
let linearize = function
| '0' -> 0UL | '1' -> 1UL | '2' -> 2UL | '3' -> 3UL | '4' -> 4UL | '5' -> 5UL | '6' -> 6UL | '7' -> 7UL | '8' -> 8UL | '9' -> 9UL
| 'A' -> 10UL | 'B' -> 11UL | 'C' -> 12UL | 'D' -> 13UL | 'E' -> 14UL | 'F' -> 15UL | 'G' -> 16UL | 'H' -> 17UL | 'I' -> 18UL | 'J' -> 19UL
| 'K' -> 20UL | 'L' -> 21UL | 'M' -> 22UL | 'N' -> 23UL | 'O' -> 24UL | 'P' -> 25UL | 'Q' -> 26UL | 'R' -> 27UL | 'S' -> 28UL | 'T' -> 29UL
| 'U' -> 30UL | 'V' -> 31UL | _ -> failwith "Bad compact value"
[| for i in 0..12 -> (linearize c.[i]) <<< i * 5 |] |> Seq.sum
VS
let private compact2UInt64 (c: string) =
let linearize = function
| '0' -> 0UL | '1' -> 1UL | '2' -> 2UL | '3' -> 3UL | '4' -> 4UL | '5' -> 5UL | '6' -> 6UL | '7' -> 7UL | '8' -> 8UL | '9' -> 9UL
| 'A' -> 10UL | 'B' -> 11UL | 'C' -> 12UL | 'D' -> 13UL | 'E' -> 14UL | 'F' -> 15UL | 'G' -> 16UL | 'H' -> 17UL | 'I' -> 18UL | 'J' -> 19UL
| 'K' -> 20UL | 'L' -> 21UL | 'M' -> 22UL | 'N' -> 23UL | 'O' -> 24UL | 'P' -> 25UL | 'Q' -> 26UL | 'R' -> 27UL | 'S' -> 28UL | 'T' -> 29UL
| 'U' -> 30UL | 'V' -> 31UL | _ -> failwith "Bad compact value"
[| for i in 0..12 -> (linearize c.[i]) <<< i * 5 |] |> Seq.sum
Люопытно, т.е. стандартный вариант с -'0' даже не рассматривался
VS
Или сколько там надо отнимать
VS
ЧОт написана ебанина, хз для чего
VS
Неужто там такой дикий перформанс?
IC
Ну так json перекладывают.
IC
Хотя стоп, действительно не вяжется. А куда потом эти числа идут?
КП
let private compact2UInt64 (c: string) =
let linearize = function
| '0' -> 0UL | '1' -> 1UL | '2' -> 2UL | '3' -> 3UL | '4' -> 4UL | '5' -> 5UL | '6' -> 6UL | '7' -> 7UL | '8' -> 8UL | '9' -> 9UL
| 'A' -> 10UL | 'B' -> 11UL | 'C' -> 12UL | 'D' -> 13UL | 'E' -> 14UL | 'F' -> 15UL | 'G' -> 16UL | 'H' -> 17UL | 'I' -> 18UL | 'J' -> 19UL
| 'K' -> 20UL | 'L' -> 21UL | 'M' -> 22UL | 'N' -> 23UL | 'O' -> 24UL | 'P' -> 25UL | 'Q' -> 26UL | 'R' -> 27UL | 'S' -> 28UL | 'T' -> 29UL
| 'U' -> 30UL | 'V' -> 31UL | _ -> failwith "Bad compact value"
[| for i in 0..12 -> (linearize c.[i]) <<< i * 5 |] |> Seq.sum
R
Люопытно, т.е. стандартный вариант с -'0' даже не рассматривался
так более читаемо
P
Увидел ещё один язык, о котором никто не знает
P
Он тоже из семейства ML