如何重新創建解壓縮

Question

我試圖重新創建解壓縮，這是我到目前爲止，打到路障前。

fun myUnZip [] = [] 
    | myUnZip ((x1,x2)::tail) = (* x1 :: myUnZip tail and also do x2 :: tail *) 

現在，我知道，第二行是不可能的，所以這就是爲什麼我把意見那裏展示我打算做的。
任何幫助我如何正確地做到這一點？

這是我在這門語言的第二天，我只是想學習模式匹配。我目前正在閱讀Elementary Standard ML這本書，它涵蓋了從列表中解壓縮元組的主題。雖然這本書爲我提供了一個解決方案，但我對它有點不知所措，希望也許別人有不同的解決方案，或者可能會提供一些關於本書解壓縮解決方案的評論。

Answer 1

fun unzip [] = ([], []) 
    | unzip ((x,y)::xys) = 
     let val (xs,ys) = unzip xys in (x::xs,y::ys) end;