2015-11-22 51 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