ฉันมีฟังก์ชันที่แปลง [a, b, c, d, . . . ] ถึง [(a,b), (c, d), . . .]. ตอนนี้ใช้งานได้แล้วและนี่คือรหัสสำหรับสิ่งนั้น: makeTuple :: [a] -> [(a,a)] makeTuple [] = [] makeTuple [a] = [] makeTuple (x:y:xs) = (x,y): (makeTuple xs)...