Как применить две функции к одной строке, не используя ">>"

Question

Я пишу такую ​​функцию.

func :: IO()
func = putStr print "func = putStr print"

Я знаю, что это неправильно, но идея в том, что я хочу, чтобы putStr применялось к строке, а print применялось к той же строке "fun = ..", чтобы вывод был:

func = putStr print "func = putStr print"

, что совпадает с моим определением функции. Спасибо

Answer 1

Если ваша цель - написать quine (еще один пример с Haskell, приведенный в этой статье), вы можете использовать лямбда-нотацию для захвата переменных.

func = (\x -> putStr x >> print x) "func = (\\x -> putStr x >> print x) "

Answer 2

Вы можете сделать это так:

doActions str actions = mapM_ ($ str) actions

Answer 3

Я не уверен, куда вы идете с частью "без использования >>" (если это действительно точка, используйте примечание do), но вы можете легко написать вспомогательную функцию, которая применяет две функции последовательно на тот же вход:

tee f g s = f s >> g s

func = tee putStr print "..."

Кроме того, чтобы просто не повторять строку, локальная переменная с let или where, вероятно, будет самой простой:

let s = "..."
in  putStr s >> print s