Lets try that again.
Erick Tryzelaar wrote: > Are you subscribed to the felix-ipml mailing list? If not, signing up > for it will work, hopefully. > > -e > > Jonathan Kelly wrote: >> My commits are bouncing from the impl list ... >> >> Jonathan. >> >> ------------------------------------------------------------------------ >> >> Subject: >> SF.net SVN: felix: [1141] felix/trunk/lpsrc/flx_stdlib.pak >> From: >> [EMAIL PROTECTED] >> Date: >> Mon, 30 Oct 2006 00:17:17 -0800 >> To: >> [EMAIL PROTECTED] >> >> To: >> [EMAIL PROTECTED] >> >> >> You are not allowed to post to this mailing list, and your message has >> been automatically rejected. If you think that your messages are >> being rejected in error, contact the mailing list owner at >> [EMAIL PROTECTED] >> >> >> ------------------------------------------------------------------------ >> >> Subject: >> SF.net SVN: felix: [1141] felix/trunk/lpsrc/flx_stdlib.pak >> From: >> [EMAIL PROTECTED] >> Date: >> Mon, 30 Oct 2006 00:17:12 -0800 >> To: >> [EMAIL PROTECTED] >> >> To: >> [EMAIL PROTECTED] >> >> >> Revision: 1141 >> http://svn.sourceforge.net/felix/?rev=1141&view=rev >> Author: jonok >> Date: 2006-10-30 00:17:06 -0800 (Mon, 30 Oct 2006) >> >> Log Message: >> ----------- >> Add find routine to AVL Tree >> >> Modified Paths: >> -------------- >> felix/trunk/lpsrc/flx_stdlib.pak >> >> Modified: felix/trunk/lpsrc/flx_stdlib.pak >> =================================================================== >> --- felix/trunk/lpsrc/flx_stdlib.pak 2006-10-29 11:44:24 UTC (rev >> 1140) >> +++ felix/trunk/lpsrc/flx_stdlib.pak 2006-10-30 08:17:06 UTC (rev >> 1141) >> @@ -2230,6 +2230,22 @@ >> >> //================================= >> >> + fun find[T] (tree : avl[T], y : T, cmp : T*T->int) : opt[T] => >> + match tree with >> + | Nil => None[T] >> + | Tree(?H, ?x, ?left, ?right) => >> + if cmp(x, y) > 0 then >> + find(left, y, cmp) >> + elif cmp(x, y) < 0 then >> + find(right, y, cmp) >> + else >> + Some x >> + endif >> + endmatch >> + ; >> + >> + //================================= >> + >> fun last[T] : avl[T]->T = >> | Tree(_, ?x, _, Nil[T]) => x >> | Tree(_, _, _, ?right) => last(right) >> >> >> This was sent by the SourceForge.net collaborative development >> platform, the world's largest Open Source development site. >> >> >> ------------------------------------------------------------------------ >> >> ------------------------------------------------------------------------- >> >> Using Tomcat but need to do more? Need to support web services, >> security? >> Get stuff done quickly with pre-integrated technology to make your >> job easier >> Download IBM WebSphere Application Server v.1.0.1 based on Apache >> Geronimo >> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 >> ------------------------------------------------------------------------ >> >> _______________________________________________ >> Felix-language mailing list >> [email protected] >> https://lists.sourceforge.net/lists/listinfo/felix-language >> > > ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Felix-language mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/felix-language
