src/Tools/SML/factorial.sml
author wenzelm
Tue, 03 Dec 2019 16:40:04 +0100
changeset 71222 2bc39c80a95d
parent 56276 9e2d5e3debd3
permissions -rw-r--r--
clarified export of consts: recursion is accessible via spec_rules;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
56276
9e2d5e3debd3 some SML examples;
wenzelm
parents:
diff changeset
     1
fun factorial 0 = 1
9e2d5e3debd3 some SML examples;
wenzelm
parents:
diff changeset
     2
  | factorial n = n * factorial (n - 1);
9e2d5e3debd3 some SML examples;
wenzelm
parents:
diff changeset
     3
9e2d5e3debd3 some SML examples;
wenzelm
parents:
diff changeset
     4
factorial 10;
9e2d5e3debd3 some SML examples;
wenzelm
parents:
diff changeset
     5
factorial 100;
9e2d5e3debd3 some SML examples;
wenzelm
parents:
diff changeset
     6
factorial 1000;