picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

fun.l (136B)

      1 # 25jun07abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (de fact (N)
      5    (if (=0 N)
      6       1
      7       (* N (fact (dec N))) ) )
      8 
      9 # vi:et:ts=3:sw=3