[OT] Factorials RE: [ILUG] impressive...

[Shane Dempsey]

I meant to mail this to the list,. A case of everybody else is doing it so
why can't
I .

// factorial.pro
factorial(0,1) :- !.
factorial(N,Answer) :- factorial(N-1,Answer2),Answer is N * Answer2.

at prolog prompt ? factorial(5500,Answer)
This might just do it. Not sure what  way prolog treats types like this.
I think that it depends on the implementation.

A C++ version using 'Mad Datatypes' is on the way. >>:-))

    ...shane

--
###################################
Shane Dempsey -         sdempsey at tssg.wit.ie
TSSG Researcher        http://www-tssg.wit.ie
###################################



----- Original Message -----
From: Kenn Humborg <kenn at bluetree.ie>
To: <ilug at linux.ie>; 'Brian Foley' <brian at bluetree.ie>; 'Kenn Humborg'
<kenn at bluetree.ie>
Sent: 29 October 1999 11:37
Subject: RE: [OT] Factorials RE: [ILUG] impressive...


>
> Oops!  Mistake...  This is the correct one
>
> factorial:
>       .mask ^<r5>
>       movl (ap), r0
>       bneq work_to_do
>       incl r0
>       ret
> work_to_do:
>       movl r0, r5
>       decl r0
>       pushl r0
>       calls #1, factorial
>       mul2 r5, r0
>       ret
>
> fact_test:
>       .mask ^<>
>       pushl #30
>       calls #1, factorial
>       ; result in r0
>
> Later,
> Kenn
>
>
> --
> Irish Linux Users' Group: ilug at linux.ie
> http://www.linux.ie/mailman/listinfo/ilug for (un)subscription
information.
> List maintainer: listmaster at linux.ie
>
>