Task

Show how to return more than one value from a function.




import: date
 
: returnFourValues 12 13 14 15 ;
: returnOneObject  [ 12, 13, 14, 15, [16, 17 ], Date now, 1.2, "abcd" ] ;
 
"Showing four values returned on the parameter stack:" println
returnFourValues .s clr
 
"\nShowing one object containing four values returned on the parameter stack:" println
returnOneObject .s clr