diff options
author | 2017-02-08 03:02:13 +0000 | |
---|---|---|
committer | 2017-02-08 03:02:13 +0000 | |
commit | d9f0f81c846a8405c29870e4a8379e5e79d1cad3 (patch) | |
tree | c07efd74ac58650949dc67576001a720e688319f /regress/roff/de/factorial.in | |
parent | cdbb1fca07752eb230e5219c22e9e65075c85b82 (diff) | |
download | mandoc-d9f0f81c846a8405c29870e4a8379e5e79d1cad3.tar.gz mandoc-d9f0f81c846a8405c29870e4a8379e5e79d1cad3.tar.zst mandoc-d9f0f81c846a8405c29870e4a8379e5e79d1cad3.zip |
Finally port the OpenBSD regression suite.
Both kristaps@ and wiz@ repeated asked for this,
literally for years.
Diffstat (limited to 'regress/roff/de/factorial.in')
-rw-r--r-- | regress/roff/de/factorial.in | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/regress/roff/de/factorial.in b/regress/roff/de/factorial.in new file mode 100644 index 00000000..8d83714b --- /dev/null +++ b/regress/roff/de/factorial.in @@ -0,0 +1,31 @@ +.Dd December 30, 2014 +.Dt FACTORIAL 1 +.Os OpenBSD +.Sh NAME +.Nm factorial +.Nd factorial sequence +.Sh DESCRIPTION +.\" recursively calculate a single factorial +.de rfac +. ie \\$1>1 \{\ +. No \\$1 * +. nr i \\$1-1 +. rfac \\ni +. nr acc \\n[acc]*\\$1 +. \} +. el .nr acc 1 +.. +.\" recursively print a sequence of factorials +.de fac +. No \\$1! = +. rfac \\$1 +. if \\$1>1 1 = +. No \\n[acc] +. if \\$1 \{\ +. br +. nr i \\$1-1 +. fac \\ni +. \} +.. +.\" main program +.fac 9 |