[clean-list] Finding the biggest Int in an Int array

Evert Tigchelaar emailit2evert@yahoo.com
Wed, 4 Jun 2003 02:49:41 -0700 (PDT)


Hi I am new to Clean.
How to get the bigest Int from an Int Array?

module Test

import StdEnv

Start :: Int 
Start = 1

// Returns the bigest number of two Int's.
getBig :: Int Int  -> Int
getBig a b = if(a > b)
			 a
			 b
// should return the biggest Int from the Int Array.  
getBigest :: {Int} Int Int -> Int
getBigest myArray pos bignr = if(pos == 0)
							  getBigest myArray (pos + 1)(bignr  = (getBig
myArray.[pos] (myArray.[pos] -1)))
							  getBigest	myArray (pos + 1)(bignr  = (getBig
myArray.[pos] bignr)) 

__________________________________
Do you Yahoo!?
Yahoo! Calendar - Free online calendar with sync to Outlook(TM).
http://calendar.yahoo.com