2008-01-19から1日間の記事一覧
5. 2つの[a1; ...; an] と [a1; ...; bn] を引数として,[(a1,b1); ...; (an,bn)] を返す関数 zip (与えられたリストの長さが異なる場合は長いリストの余った部分を捨ててよい)。 # let rec zip l1 l2 = match (l1, l2) with ([], _) -> [] | (_, []) -> […
5. 2つの[a1; ...; an] と [a1; ...; bn] を引数として,[(a1,b1); ...; (an,bn)] を返す関数 zip (与えられたリストの長さが異なる場合は長いリストの余った部分を捨ててよい)。 # let rec zip l1 l2 = match (l1, l2) with ([], _) -> [] | (_, []) -> […