В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Modern::Perl

372 membersпожаловаться на группу
2020 May 18

a

allter in Modern::Perl
Anton Petrusevich
в общем, это довольно специальный случай. блин, я не помню таки что за трабла с даблами у меня была...
Переполнение мантиссы м.б.? при хранении цифр в форматах с плавающей точкой, надо убеждаться, что ни переполнения мантиссы не происходит при арифметических операциях, ни обрезка битов не приводит к "неправильным" округлениям.
источник
19:35пожаловаться#1

AP

Anton Petrusevich in Modern::Perl
allter
Переполнение мантиссы м.б.? при хранении цифр в форматах с плавающей точкой, надо убеждаться, что ни переполнения мантиссы не происходит при арифметических операциях, ни обрезка битов не приводит к "неправильным" округлениям.
ну посмотри как происходит енкодинг джейсона в жс и перле
источник
19:36пожаловаться#2

a

allter in Modern::Perl
Anton Petrusevich
ну посмотри как происходит енкодинг джейсона в жс и перле
Да вроде одинаково в современных либах. Но про старые реализации в стандарте ascii по файлу чётко написано ничего не ожидать от JSON Number.
источник
19:37пожаловаться#3

AP

Anton Petrusevich in Modern::Perl
allter
Да вроде одинаково в современных либах. Но про старые реализации в стандарте ascii по файлу чётко написано ничего не ожидать от JSON Number.
я привёл примеры
источник
19:38пожаловаться#4

AP

Anton Petrusevich in Modern::Perl
не совсем одинаково
источник
19:38пожаловаться#5

a

allter in Modern::Perl
Anton Petrusevich
хм. хотя может я и не совсем прав: 
$ perl -MJSON -E '$l = 99999999999.0123 + 0.00231432423; say encode_json({l=> $l})'
{"l":99999999999.0146}
Вот это vs простой "+" и print? Ну, это вопрос к указанному модулю. Не надо передавать числа в JSON как Number, если важна точность.
источник
19:41пожаловаться#6

AP

Anton Petrusevich in Modern::Perl
allter
Вот это vs простой "+" и print? Ну, это вопрос к указанному модулю. Не надо передавать числа в JSON как Number, если важна точность.
я привёл джсон-стрингификацию джаваскрипта и перла для одного и того же значения. стрингификация разная.
источник
19:42пожаловаться#7

YS

Yevhen Sabodash in Modern::Perl
Yevhen Sabodash
а не подскажите как различить 1 и "1"? как достать внутренний флаг, чтоб знать что передо мной именно строка?
помимо махинации с xor, проверить флаг можно
B::svref_2object(\$x)->POK
источник
20:39пожаловаться#8

VG

Vadim Goncharov in Modern::Perl
Yevhen Sabodash
дело не в жс
perl -le 'print 1234567890.123456;'
1234567890.12346
perl -E 'say sprintf "%.9f", 1234567890.123456;'
1234567890.123456001
источник
23:15пожаловаться#9

VG

Vadim Goncharov in Modern::Perl
allter
Кстати, если вам надо валидировать JSON, то по стандарту никто ни double ни int64 не гарантирует.
а что гарантируют?
источник
23:15пожаловаться#10

VG

Vadim Goncharov in Modern::Perl
Yevhen Sabodash
помимо махинации с xor, проверить флаг можно
B::svref_2object(\$x)->POK
он и после использования числа в строковом контексте появится, например после print
источник
23:16пожаловаться#11

YS

Yevhen Sabodash in Modern::Perl
да, это я знаю
источник
23:17пожаловаться#12

YS

Yevhen Sabodash in Modern::Perl
покрыл тестами эти костыли
источник
23:17пожаловаться#13

a

allter in Modern::Perl
Vadim Goncharov
а что гарантируют?
что строки будут переданы как есть.  :)
источник
23:19пожаловаться#14

YS

Yevhen Sabodash in Modern::Perl
Vadim Goncharov
perl -E 'say sprintf "%.9f", 1234567890.123456;'
1234567890.123456001
точность все-равно теряется, то есть все-равно упираемся в дабл. я подозреваю,что появление цифр сверх точности связано с тем, как на самом деле хранится представление того, что после запятой. Так как для целых чисел там останется 0
perl -E 'say sprintf "%.9f", 1234567890123456.987654321;'
1234567890123457.000000000
источник
23:32пожаловаться#15

YS

Yevhen Sabodash in Modern::Perl
точнее когда предел точности не доходит до дробной части
источник
23:33пожаловаться#16

VG

Vadim Goncharov in Modern::Perl
perl -E 'say sprintf "%18.9f", 2**59'
576460752303423488.000000000

еще влезает
источник
23:37пожаловаться#17

VG

Vadim Goncharov in Modern::Perl
хотя, это в десятичном виде, младшие биты там уже нулевые поди
источник
23:38пожаловаться#18

YS

Yevhen Sabodash in Modern::Perl
2^53, если верить википедии и мы говорим про double на 8 байт
источник
23:41пожаловаться#19

AT

Artem Tepponen in Modern::Perl
Проблема в том, что 0.1 во флоате - бесконечная дробь. Независимо от языка.
источник
23:52пожаловаться#20