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

[Kenn Humborg]

> Now all we need is an APL version, and perhaps one or 
> two obscure assembler versions. VAX assembler anyone? 
> Cray assembler maybe?

Dammit, but I tried to stop myself...

factorial:
      .mask ^<r5>
      movl (ap), r0
      cmpl #1, r0
      beq done
      movl r0, r5
      decl r0
      pushl r0
      calls #1, factorial
      mul2 r5, r0
done:
      ret

fact_test:
      .mask ^<>
      pushl #30
      calls #1, factorial
      ; result in r0

Now where's my Cray assembler reference...

Later,
Kenn