하스켈은 튜플

Question

목록에 목록을 변환 난이

["peter","1000","michell","2000","kelly","3000"] 

같은 목록을 가지고 있고 내가 도와주세요

[("peter",1000),("michell", 2000),("kelly",3000)] 

로 변환하고 싶습니다. 감사합니다. . 당신은 단지 마지막

Answer 1

cnv :: [String] -> [(String, Integer)] 
cnv [] = [] 
cnv (k:v:t) = (k, read v) : cnv t 

조금 짧은,하지만 여기에 매우 편리 split library에서 splitEvery를 사용하여 비 재귀 버전의 :

cnv = map (\[name, amount] -> (name, read amount :: Int)) . splitEvery 2 

여기 단계는 재귀 버전보다 다소 명확합니다 (최소한 나를 위해).

Answer 2

ony's solution 전에 cnv [x] = 변형을 추가 홀수 길이를 처리하려면

Answer 3

내가 찾을이 같은 작업을 편리 목록에서 매 n 번째 요소를 가지고 가기 위하여 stride 기능이 정확히 위해 :

stride _ [] = [] 
stride n (x:xs) = x : stride n (drop (n-1) xs) 

이 쌍 목록을 변환 할 수 있습니다

:

toPairs xs = zip (stride 2 xs) (stride 2 (drop 1 xs)) 

예 (가 쌍을이없는 경우 마지막 요소는 폐기 할 수 있습니다) :

ghci> stride 2 [1..5] 
[1,3,5] 
ghci> toPairs [1..7] 
[(1,2),(3,4),(5,6)] 

,369

toTriplets xs = zip3 as bs cs 
    where as = stride 3 xs 
     bs = stride 3 $ drop 1 xs 
     cs = stride 3 $ drop 2 xs 

이 예에서 정수로 String에서 변환을 수행하려면, 두 번째 보폭을 통해 read 기능을 매핑 할 수 있습니다 : 1,363,210

그것은 심지어 쉽게 세 쌍둥이 이상 튜플로 확장 할 수

let lst = ["peter","1000","michell","2000","kelly","3000"] in 
zip (stride 2 lst) (map read . stride 2 . drop 1 $ lst) :: [(String,Int)] 

하는 제공 :

[("peter",1000),("michell",2000),("kelly",3000)]