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

Модификации стейта умышленно такие ленивые?

4 ответов

16 просмотров

Какие именно, у меня тут уже столько вариантов было что я не очень понимаю про какой стейт речь

Roman- Автор вопроса
aadaa_ftgaa
Какие именно, у меня тут уже столько вариантов был...

repeatF :: Int -> (a -> a) -> (a -> a) repeatF 0 f x = x repeatF n f x = repeatF (n - 1) f (f x)

Roman
repeatF :: Int -> (a -> a) -> (a -> a) repeatF 0 f...

Тут вроде и так нормально оптимизируется все repeatF_$s$wrepeatF :: Tape -> Int# -> Tape = \r [sc_s88O sc1_s88P] case sc1_s88P of ds_s88Q { __DEFAULT -> case -# [ds_s88Q 1#] of sat_s893 { __DEFAULT -> case case sc_s88O of { Tape l_s88S dt_s88T ds1_s88U -> case ds1_s88U of { :> dt1_s88W r_s88X -> case r_s88X of dt2_s88Y { :> _ _ -> let { sat_s891 :: Stream = CCCS :>! [dt_s88T l_s88S]; } in Tape [sat_s891 dt1_s88W dt2_s88Y]; }; }; } of sat_s892 { __DEFAULT -> repeatF_$s$wrepeatF sat_s892 sat_s893; }; }; 0# -> sc_s88O; };

aadaa_ftgaa
Тут вроде и так нормально оптимизируется все repe...

А нет, тут же case-of-case не свернут, с $! действительно лучше repeatF_$s$wrepeatF :: Tape -> Int# -> Tape = \r [sc_s88X sc1_s88Y] case sc1_s88Y of ds_s88Z { __DEFAULT -> case sc_s88X of { Tape l_s891 dt_s892 ds1_s893 -> case ds1_s893 of { :> dt1_s895 r_s896 -> case r_s896 of dt2_s897 { :> _ _ -> case -# [ds_s88Z 1#] of sat_s89c { __DEFAULT -> let { sat_s89a :: Stream = CCCS :>! [dt_s892 l_s891]; } in let { sat_s89b :: Tape = CCCS Tape! [sat_s89a dt1_s895 dt2_s897]; } in repeatF_$s$wrepeatF sat_s89b sat_s89c; }; }; }; }; 0# -> sc_s88X; }; -0.1-0.2 секунды, да

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

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

Добрый вечер. Есть вопрос, а может и предложение. Был у меня диалог в другой группе о делфи и я задался вопросом: "А нельзя ли в делфи цвет //коментария и {комментария} сде...
Kraszx
24
Всем привет! Подскажи, пожалуйста, как передать в TComboBox сразу значение и id записи. На Delphi я делал так: ComboBox1.Items.AddObject('Какое-то значение', Pointer(id запис...
Евгений
13
Мдя, прикол, боевая сборка запускается (именно под отладчиком) после F9 примерно полторы минуты (97 секунд если быть точным). Начал копать - проблема детектится сразу - зависа...
Александр (Rouse_) Багель
38
я так понимаю, я так подозреваю, что создание такого плагина для человека, кто умеет писать плагины для делфи потребует минут 5-10 времени. но это мое подозрение. хотелось бы ...
Kraszx
7
Товарищи, кто работа с iphelper? Или может я в самой логике ошибки фигачу, не пойму.... var ifTable : PMIB_IFTABLE; size, corSize: DWORD; Buffer ...
Warfarellen
4
Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
50
Коллеги, добрый вечер. Создаю коллекцию от TFPGMap, ключ - перечисление, значение - целое. Нужно отсортировать коллекцию по значению. Как это можно сделать?
Kirill Filippenok
11
Скажи а ты когда этот канал создавал ты уже дельфи не любил, или это со временем пришло?
Роман Лях (rgreat)
18
Привет, такой вопросик появился кажется ли вам что Rust слишком сложный/строгий для высокоуровневого программирования и слишком "безопасный"/строгий для низкоуровневого?
Крокант
10
Всем привет! Использую кастомное модальное диалоговое окошко, все по классике - mrOK, mrCancel как ModalResult. Однако есть нюанс - в главной форме есть универсальный обработч...
Олег Гранишевский
20
Карта сайта