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

Всем привет! Хотел спросить про строгие вычисления. Как я понял, за

это отвечает восклицательный знак.

Я видел использование через замену $ на $!. Но что-то оно не особо помогает:
length1 :: [a] -> Int
length1 [] = 0
length1 (x:xs) = 1 + (length1 $ xs)

length2 :: [a] -> Int
length2 [] = 0
length2 (x:xs) = 1 + (length2 $! xs)

Обе функции работают одинаково. Да еще и добавление знака доллара потребовало изменять вид фукнции и ухудшать ее читаемость (возможно, есть способ использовать + и инфиксно, но у меня не получилось придумать код, который бы скомпилировался бы)

Еще я видел, что где-то перед аргументами функции пишут восклицательный знак. Относится ли это к строгим вычислениям? Если да, то как его использовать?

3 ответов

12 просмотров

https://www.fpcomplete.com/haskell/tutorial/all-about-strictness/ вот это почитай

Не совсем понимаю, как ты хочешь тут оптимизировать, потому что плохая производительность этого кода не зависит от ленивости/энергичности

Если знаком с лямбда исчислением, то попробуй поредуцировать свое выражение на бумажке в нормальном порядке. Если не знаком, то неплохо было бы почитать

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

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

Такой вопросец - есть функция function MySuperDuperConcat(const a: array of AnsiString): AnsiString; Как мне в её теле сделать вот так? Result:=Concat(a); А не грустный вариан...
notme
15
Есть какой-нибудь для Delphi/FPC T*Compression(Decompression)Stream на базе LZ4/Zstd/любой другой быстрый(и хорошо сжимающий) алгоритм А ещё лучше в pure pascal А ещё лучше од...
notme
48
type TObj = object procedure Init; virtual; end; TObj1 = object(TObj) procedure Init; override; end; procedure TObj1.Init; begin inherited; end; procedur...
Alexander 👋
29
А чем вам питонисты не угодили?😂
.
79
Вот смотрите у меня есть два стрима сейчас fs, cs: TStream; fs := TFileStream.Create('filename'); cs := TCompressionStream.Create(compression_level, fs); Я хочу сделать так: ...
notme
5
Всем привет, написал код ниже, но он выдает сегфолт, в чем причина? #include <stdio.h> #include <stdlib.h> #include <string.h> struct product { char *name; float price; };...
buzz базз
83
Можно ли загрузить скрипт py в бота чтобы он работал по нему? как это сделать?
huskadam #RCC Фанат? @hitlerpvp
13
Всем здравствуйте! Я хотел узнать сколько стоит средняя месячная зарплата у Electron js разработчиков? Мне очень это важно и нужно, плиз помогите узнать эту инфу! Для Джунио...
U.K.
10
Hello. Could you please help me with finding all coordinates within a radius using a spatial index, given that I have a table with coordinates? SET @lng = 37.57925; SET @lat ...
Rinchin G
8
free(NULL) это UB?
#
8
Карта сайта