2015-11-22 49 views

回答

0

建議是定義以下類型:

type rosalind = {name : string; dna: string; kprefix: string; ksuffix: string} 

解析你的數據庫建立羅莎琳德的列表;使用String.sub來計算kprefix & ksuffix;這將導致列表rosa_list。

然後ITER上rosalist

list.iter (fun y -> List.iter (fun x -> if x.ksuffix = y.prefix then print_useful_info) rosa_list) rosa_list