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

Подскажите, как правильно сделать cons для data List a =

List ((a -> z -> z) -> z -> z) -> List a?

Пытаюсь решить на codewars.com кату "Lambda Calculus: Lists as folds II". Там списки представлены конструктором List :: ((a -> z -> z) -> z -> z) -> List a и деконструктором foldr :: List a -> (a -> z -> z) -> z -> z (в той кате порядок аргументов не такой, как у обычного foldr).

Я сделал такой вариант:

cons :: a -> List a -> List a
cons v xs = List $ \c nl -> c v (foldr xs c nl)

Он проходит их начальные тесты, но вот на финальных тестах зависает (больше 12 сек тесты работают и останавливаются с ошибкой).

Как можно по-другому реализовать?? Всю голову сломал.

Притом, что варианты

cons v xs = List $ \c nl -> c v nl
cons v xs = List $ \c nl -> foldr xs c nl

не приводят к зависанию (но приводят к непрохождению тестов, конечно)

2 ответов

10 просмотров

бесит, что локально не запустить, ибо не хватает много кода

toroboque- Автор вопроса
Zygohistomorphic Prepromorphism🇺🇦
бесит, что локально не запустить, ибо не хватает м...

Обычно в заданиях дают куски кода для локального запуска. Ну а в данном случае нужно только определение List и свой foldr (с перевёрнутыми аргументами), всё.

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

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

Всем привет, написал код ниже, но он выдает сегфолт, в чем причина? #include <stdio.h> #include <stdlib.h> #include <string.h> struct product { char *name; float price; };...
buzz базз
75
База данных не поможет. Шифрование не поможет. Какие там ещё варианты? Накидывайте.
КТ315
20
А табстоп это сообщение от окна или от элемента управления?
The Bird of Hermes
18
А как лучше конвертировать физический адрес в виртуальный при маппинге? В случае ядра у меня, например, direct mapping, первые 768МБ я как есть мапплю в higher half, а остальн...
Evg Resh
26
Открыл свой двухкилобайтный экзешник в x32dbg, а тут какая-то хрень. Смущает кнопка "выполнить до пользовательского кода", а что ещё может быть в файле помимо него ?
НѣкъиⰘижєжєиꙁъвьсєсвѣтьноѣсѣтиѥсть•
11
Мне были интересны дишные хаки и я нашёл любопытный способ на форуме через __traits, что-то вроде int delegate(int) fac = (int n) => n == 0 ? 1 : n * __traits(parent, {})(n - ...
Constantin F.
1
Вопрос тем кто смотрит видео и слушает подкасты - как вы потом ищете нужную вам информацию? Вот статью я прочитал, потом могу искать нужную мне часть банальным поиском. Пропус...
Aleksandr Druzhinin
4
Всем привет, подскажите/посоветуйте пожалуйста. Фаердак компоненты, имею одно место где бизнес хочет видеть при открытии формы список всех клиентов, это порядка 30к. Мои дово...
Sasha Sch
14
Ребят, если кто в курсе - скажите, а в загранке такое же засилье маркетплейсов? или там простые сермяжные интернет-магазины живут попроще?
Андрей [aharito] Харитонов
14
Коллеги, доброе утро. Запустил на удаленном хосте приложение (ручками зашел туда по ssh и запустил, не командой удаленно). Создал потом ssh-туннель, и с моей машины приложение...
Δημήτηρ
9
Карта сайта