2016-09-04 4 views
0

왜 아래 코드가 작동하지 않습니다. 원하는 출력을 제공하지 않습니다. 문자열 (예 : cba -> abc)을 정렬하고 싶습니다. 파일 끝에 ^ D 나는 다만 cba를 얻는다 : cba.interact (concat. sort lines) cba

import Data.List 

main = interact (unlines . map sort . lines) 

이 각 줄 입력 정렬 : 더 많은 뭔가를 원하는 것처럼

import Data.List 
import Data.Char 
import System.IO (isEOF) 


main = 
    interact (concat . sort .lines) 
+1

당신은 줄을 나누고, 줄을 서로 정렬하고, 줄을 다시 모으고 있습니다. 어떻게'sort' 호출을 수정하여'each' 행을 정렬 할 수 있습니까? – dfeuer

+1

여기서'sort'는'[String] -> [String]'타입에서 호출되었지만'[Char] -> [Char]'를 원합니다 - 즉 현재'sort'는 사전 순으로 선 목록을 정렬합니다 문자열에 주문. 보십시오 let sort ':: String -> String'; sort '= 상호 작용으로 정렬 (concat. sort'. lines)'- 이것은 타입 에러를 발생 시키지만, 이것을 알아내는 출발점이되어야합니다. – user2407038

답변

2

보인다.