samples/bumens.yml2
author Volker Birk <vb@pep-project.org>
Tue, 15 Dec 2020 11:29:51 +0100
changeset 68 26120af11afd
parent 0 76005e62091d
permissions -rw-r--r--
do not need this
0
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     1
function "fak" {
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     2
    param "n";
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     3
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     4
    choose {
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     5
        when "n=0" value 1
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     6
        otherwise value "$n * fak($n-1)";
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     7
    }
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     8
}
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     9