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

Здравствуйте! Я вот на stepic решаю задачи на хаскеле https://stepik.org/lesson/8443/step/8?unit=1578 мой

код

import Data.List (isInfixOf)

removing :: String -> [String] -> IO ()
removing sub [] = return ()
removing sub (x:contents) = do
if isInfixOf sub x && not (null x)
then do
let first_element = drop 2 x
putStrLn $ "Removing file: " ++ first_element
removeFile first_element
removing sub contents
else
removing sub contents

main' :: IO ()
main' = do
putStr "Substring: "; hFlush stdout
sub <- getLine
if sub == ""
then putStrLn "Canceled"
else do
contents <- getDirectoryContents "."
removing sub contents


может кто-то подсказать, почему возникает ошибка??

Failed. Test 1: removeFile: no such file

10 ответов

97 просмотров

Потому что нету файла

E- Автор вопроса
E
дак это понятно)

А почему он должен был быть?

Хотелось бы узнать, какой смысл имеет first_element, и почему именно он удаляется. Разве это имя файла?

E- Автор вопроса
Михаил
Хотелось бы узнать, какой смысл имеет first_elemen...

там по условию нужно удалить файлы, в имени которых есть подстрока. Мы сначала проверяем на наличие подстроки, а потом в first_element сохраняем это имя, но без первых двух символов "./" , т.к. все имена находятся в текущей директории и эти первые символы не нужны.

E- Автор вопроса

Да, действительно! Спасибо огромное!!! Теперь всё проходит.

E
Да, действительно! Спасибо огромное!!! Теперь всё ...

Есть и некоторые другие моменты. Например, зачем вместе с проверкой sub ˋisInfixOfˋ x проверять not (null x)? Можете убедиться, что она избыточна. И раз вы знаете функцию null, зачем писать sub == ""? Далее, можно было бы написать функцию removing с помощью mapM_, чтобы не расписывать рекурсию. Про эту полезную функцию не зря говорилось в видеоролике прямо перед этим заданием, и, возможно, стоит ради практики написать второе решение с ней. Кроме того, у вас написано: if cond then do act removing sub contents else removing sub contents Тут act (вывод сообщения и удаление файла) имеет тип IO (). Можно было бы избежать повторения, используя функцию when из Control.Monad: do when cond act removing sub contents Впрочем, в решении с mapM_ она не потребовалась бы.

E
там по условию нужно удалить файлы, в имени которы...

Лучше бы не дропать, а сделать кейс на них. Удалять файлы это довольно рисковая процедура, по возможности надо всё эксплицитно делать, чтобы с первого взгляда было понятно откуда каждый байт приходит и куда идёт.

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

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

Какой-то там пердун в 90-х решил, что есть какая-то разная типизация. Кого вообще это волнует?
КТ315
49
void terminal_scroll() { memmove(terminal_buffer, terminal_buffer + VGA_WIDTH, buffer_size - VGA_WIDTH); memset(terminal_buffer + buffer_size - VGA_WIDTH, 0, VGA_WIDTH); ...
Егор
47
Всем привет! Подскажите, пожалуйста, в чем ошибка? Настраиваю подключение к MySQL. Либы лежат рядом с exe. Все как по "учебнику"
Евгений
16
А можете как-то проверить меня по знаниям по ассемблеру?
A A
132
Здравствуйте! У меня появилась возможность купить книгу "Изучай Haskell во имя добра!". Но я где-то слышал, что эта книга устарела. Насколько это правда??
E
22
Камрады, кто тесно работал с vtv, хотел уточнить. Ширина column задаётся жёстко на этапе создания дерева или можно в рантайме ее менять программно (не мышкой)?
Ed Doc
10
да ладно ... что там неочевидного ? глянуть в исх-ки датасета и/или кверика чтобы понять в каком месте и как выполняется обращения к св-вам blablaSQL - минутное дело, даже е...
Сергей
7
Здесь для arm кто-нибудь кодит ?
Nothing
52
Всем привет, у меня есть сервер принимающий входящие HTTP подключения, как проверить, что подключение было через прокси или нет, есть какие то поля в заголовках по которым мо...
Кибер Бомж
8
Hello, I have a quiz app that I’m working on, and I’m storing the questions on Firebase. I have a question that’s been puzzling me, and I hope someone can answer it because I ...
GHAITH FALYOUN
2
Карта сайта