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

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

задумках)

33 ответов

7 просмотров

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 ароде

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

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

А еще в перле можно уже @arr1 + @arr2?
Sergei Zhmylove
53
я не магистр хаскеля, но разве не может лейзи тип конвертнуться в не-лейзи запросив вычисление содержимого прям при инициализации?
deadgnom32 λ madao
100
Подскажите, где смотреть результат выполнения программы? Код: ;.686 ;Система команд процессора 686 ;.MODEL FLAT,stdcall ;Модель памяти плоская, станда...
Егор Анелькин
5
Привет всем. появился вопрос. Разрабатываю сайт, в данный момент он запущен. Хостинг beget. Добавляю на сайт яндекс метрику с помощью полей client-settings (взято отсюда http...
Andrew
2
;.686 ;Система команд процессора 686 ;.MODEL FLAT,stdcall ;Модель памяти плоская, стандартный ;вызов процедуры ;option casemap:no...
Егор Анелькин
1
почому оно не работает?
Vi Chapmann Chapmann
19
Так а кто может спарсить всех участников чата? Идишники
Magic
18
Есть вопрос: допустим есть железка с каким-то интерфейсом(допустим usb), но как по этому интерфейсу железкой управлять неизвестно, прог нету, а управлять очень хочется надо. К...
Mixail Frolov
15
а как ловят такое ghci> res <- getPos2 urlt 0 (alist !! 0) 200 ghci> res SearchAtom (Search "www.google.com" "/search?q=" "Haskell") "haskell.org" (SearchTS [(2024-05-06 07:...
Fedor
14
короче сгенерила мне эта штука код на ассемблере: struc string val { common local .value dq .value .value: if ~val eq db val end if db 0 } fo...
Vi Chapmann Chapmann
12
Карта сайта