Skip to content

Instantly share code, notes, and snippets.

@flexgrip

flexgrip/gist:5374352

Created April 12, 2013 19:08
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save flexgrip/5374352 to your computer and use it in GitHub Desktop.
Save flexgrip/5374352 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
GET "LIBHDR"
LET START() = VALOF $(
FOR I = 1 TO 5 DO
WRITEF("%N! = %I4*N", I, FACT(I))
RESULTIS 0
)$
AND FACT(N) = N = 0 -> 1, N * FACT(N - 1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment