Merge pull request #472 from Epicalert/freeze

Add factorial function

1 files changed, 9 insertions, 0 deletions

diff --git a/src/interp.c b/src/interp.c
index a64d3fc..eb924fc 100644
--- a/src/interp.c
+++ b/src/interp.c
@@ -1299,6 +1299,14 @@ double eval(register struct ent * ent, register struct enode * e) {
     case MAGENTA: return ((double) COLOR_MAGENTA);
     case CYAN:   return ((double) COLOR_CYAN);
     case WHITE:  return ((double) COLOR_WHITE);
+    case FACT:
+        {
+            double total = eval(ent, e->e.o.left);
+            for (int i = eval(ent, e->e.o.left) - 1; i > 0; i--) {
+                total *= i;
+            }
+            return total > 0 ? total : 1;
+        }
     default:    sc_error ("Illegal numeric expression");
                 exprerr = 1;
     }
@@ -3060,6 +3068,7 @@ void decompile(register struct enode *e, int priority) {
             for (s = "@default_color"; (line[linelim++] = *s++); );
             linelim--;
             break;
+    case FACT:    one_arg("@fact(", e); break;
     default:
             decompile(e->e.o.left, mypriority);
             line[linelim++] = e->op;