交换角色，Haskell

Question

如果str =＆＃34; abcdpqrs＆＃34;，那么我们必须将位置{（0,1），（2,3），（4,5），（6,7）}中的字符交换为L = 8.所以答案将是＆＃34; badcqpsr＆＃34;。

我的算法可以解决问题：

输入是：

2
abcdpqrs
az

我的输出是：

"2"
"badcqpsr"
"za"

第一个输入行是要遵循的一些测试用例。我想跳过这个号码。我怎么能这样做？我如何删除括号？

我的代码：

rev (a : b : xs) = b : a : rev xs
rev xs = xs

main = do
    l <- getLine
    print (rev l)
    main

Answer 1

import Control.Monad

main = readLn >>= \n -> replicateM_ n $ getLine >>= putStrLn . rev

即。将第一行读为数字n，然后执行getLine >>= putStrLn . rev n次操作。