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

Как посчитать среднее значение в списке? (и не утонуть в

задумках)

33 ответов

28 просмотров

sum xs / length xs

написать кастомную функцию с аккумом?

Cheese-Syrowiecki Автор вопроса
Maxim Koltsov
sum xs / length xs

не работает для больших списков

Cheese-Syrowiecki Автор вопроса

какая сигнатура у правильного ответа?

Cheese-Syrowiecki Автор вопроса
Cheese-Syrowiecki Автор вопроса
A64m AL256m qn<cores> I0
использовать пакет фолдл

не единственное решение и не самое простое

ок

jit.js
screenshot ок

неправильно, тупол-то ленивый

Cheese-Syrowiecki Автор вопроса
jit.js
screenshot ок

тестируйте на потребление памяти

Cheese-Syrowiecki Автор вопроса
jit.js
screenshot ок

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

Zygohistomorphic Prepromorphism🇺🇦
ну можно тогда data STuple a = STuple !a !a

а если сделать? data STuple a = STuple {-# UNPACK #-} !a {-# UNPACK #-} ! a

Алексей Худяков
Можно бангами намазать

ага, выше уже (,) $! _ $! _ предложили)

Cheese Syrowiecki
тестируйте на потребление памяти

Что то типа такого не прокатит? average' :: Fractional a => [a] -> a average' xs = f 0 0 xs where f :: Fractional a => a -> a -> [a] -> a f sum count [] = sum / count f sum count (x:xs) = f (sum+x) (count+1) xs

Oleksij Kyslytsja
Что то типа такого не прокатит? average' :: Fracti...

это нормально будет работать токо если развертки доступны и компилятор специализирует эту функцию

A64m AL256m qn<cores> I0
это нормально будет работать токо если развертки д...

А отак? average' :: [Double] -> Double average' xs = f 0 0 xs where f sum count [] = sum / count f sum count (x:xs) = f (sum+x) (count+1) xs По идее хвостовая должна быть, не?

A64m AL256m qn<cores> I0
да

Как это отпрофилировать можно в или еще как то?

A64m AL256m qn<cores> I0
корку посмотреть

На каком списке корку ждать?

Oleksij Kyslytsja
На каком списке корку ждать?

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

Oleksij Kyslytsja
gdb binfile core

че это такое?) на маке как такое смотретьт?

Zygohistomorphic Prepromorphism🇺🇦
тогда команду покажи)

например -ddump-to-file -ddump-simpl -dsuppress-all -dno-suppress-uniques -dppr-case-as-let -dppr-cols200

Zygohistomorphic Prepromorphism🇺🇦
че это такое?) на маке как такое смотретьт?

Ставь gdb через brew подписывай и используй, либо lldb binfile core ароде

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

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

а через ESC-код ?
Alexey Kulakov
29
30500 за редактор? )
Владимир
47
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
13
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
notme
6
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
6
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Ребят в СИ можно реализовать ООП?
Николай
33
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Карта сайта