[Prev][Next][Index][Thread]
Re: Fun-O Basic Edition Compiler
"Carl Gay" <carlgay@mediaone.net> wrote in message
3C2938A6.4242FE86@mediaone.net">news:3C2938A6.4242FE86@mediaone.net...
>
> define method tak (x :: <integer>, y :: <integer>, z :: <integer>)
> if (y >= x)
> z
> else
> tak(tak(x - 1, y, z),
> tak(y - 1, z, x),
> tak(z - 1, x, y))
> end if
> end;
>
Try adding '=> (r :: <integer>)' as the return result of 'tak'. I'll bet
that your use of the implicit return type of <object> is defeating some
of FD's optimizations.
Follow-Ups:
References: