untitled - Index eq 0> nil |(let Result = Rec_F...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
let Is_Element Number Tuple = Rec_Is_Element Number Tuple (Order Tuple) where rec Rec_Is_Element Number Tuple M = M eq 0 -> false | (Tuple M) eq Number -> true | Rec_Is_Element Number Tuple (M-1) in let rec Rec_F Tuple Index =
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Index eq 0 -> nil | (let Result = Rec_F Tuple (Index-1) in (Is_Element (Tuple Index) Result -> Result | (Result aug (Tuple Index))) ) in let F Tuple = Rec_F Tuple (Order Tuple) in Print ( F (1,2,3,2,4,5,4) )...
View Full Document

This note was uploaded on 11/09/2011 for the course COP 5555 taught by Professor Staff during the Fall '08 term at University of Florida.

Ask a homework question - tutors are online