Task

Create a function that returns the maximum value in a provided set of values,

where the number of values may not be known until run-time.




include ..\Utilitys.tlhy
 
( "1" "1234" "62" "234" "12" "34" "6" )
 
dup "Alphabetic order: " print lmax ?
 
:f tonum ;
 
@f map
 
"Numeric order: " print lmax ?
 
" " input