0

CodeEvalのReverseWordsが解けません。
https://www.codeeval.com/open_challenges/8/

solve内でリストをreverseさせたいのですが、
リスト内の要素を文字列を反復してしまいます。

こういったとき、どういう風に考えれば解けますでしょうか?

import System.Environment (getArgs)

solve :: [String] -> [String]
solve ss = fmap reverse ss

main = do
    contents <- getContents
    mapM_ putStrLn $ solve $ lines contents

1 件の回答 1

3

この場合、まずwhitespaceで区切って["Hello", "World"]のようなリストを作ってから反転させる、と考えるべきです。

words

> words "This is a pen"
> ["This", "is", "a", "pen"]

unwords

> unwords ["pen","a","is","This"]
> "pen a is This"

のような変換ができます。

以下に正しいsolveを掲載します。(マウスオーバーで表示します。)

solve :: [String] -> [String]
solve = fmap (unwords . reverse . words)

3
  • words, unwords いずれも Prelude にもあると思いますが,ここで Data.List.words と書いておられるのに特別な意味はありますか?
    – Yosh
    Commented 2015年3月1日 12:12
  • @Yosh さん すいません意味はないです。Preludeにあるの忘れてました。 回答を編集しました。ご指摘ありがとうございます。
    – xenophobia
    Commented 2015年3月1日 12:30
  • こちらこそありがとうございます!
    – Yosh
    Commented 2015年3月1日 12:41

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。