Изменение определения функции в точке свободного стиля

Question

У меня возникли проблемы написания этого кода, который мой профессор дал мне:

Напишите функцию с именем digit7 который принимает Int и возвращает Bool говорят или нет 7 является одной из цифр. (Подсказка: используйте show для превратить количество в список символов.) Используйте digit7 создать функцию без параметров, называемых square7, который возвращает наименьшее число, квадрат которого содержит 7 как цифра.

Код, который у меня есть:

digit7 l = elem '7' (show l) 

Это работает, но мне нужна коды, написанные в стиле точечного бесплатно. У меня также есть проблемы с выяснением функции square7.

Answer 1

Для функции digit7, вы можете преобразовать ваше определение в точку-свободный стиль, используя функциональный состав:

digit7 = (elem '7') . (show) 

Это потому, что:

digit7 l 
-> ((elem '7') . (show)) l  By substitution 
-> (elem '7') ((show) l)  By definition of (.) 
-> elem '7' (show l)   By operator precedence 

---

Что касается функции square7 , Я рекомендую использовать dropWhile и head.