|
|
ru.algorithms- RU.ALGORITHMS ---------------------------------------------------------------- From : Vitaly Lugovsky 2:5080/1003 16 Jan 2003 19:26:36 To : Vitaly Lugovsky Subject : Re: коммивояжёр -------------------------------------------------------------------------------- Vitaly Lugovsky <vsl@ontil.ihep.su> wrote: Oops! Обшипка в cut'n'paste > let rec tfindl f nl = > let rec nxtlyr = function > hd :: tl -> > (match hd with > Tnode(v,l,r) -> if f v than raise (Found(v)) else > l::r::(nxtlyr tl) | Tnone -> nxtlyr tl > ) > | [] -> [] > in tfindl f (nxtlyr nl) --- ifmail v.2.15dev5 * Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.algorithms/146468e9f97b2.html, оценка из 5, голосов 10
|