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

From: Kenn Humborg (kenn at domain bluetree.ie)
Date: Fri 29 Oct 1999 - 11:22:52 IST


> 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



This archive was generated by hypermail 2.1.6 : Thu 06 Feb 2003 - 13:04:48 GMT