diff options
| author | Ingo Schwarze <schwarze@openbsd.org> | 2017-02-08 03:02:13 +0000 |
|---|---|---|
| committer | Ingo Schwarze <schwarze@openbsd.org> | 2017-02-08 03:02:13 +0000 |
| commit | 4c0770c1ecd159a77561d8e0364385f4bb758650 (patch) | |
| tree | 5c2d5820b093c1c08b6047ff110e9b055083a5ea /regress/roff/de/factorial.in | |
| parent | d16e7f2cf346476e177ce672851b0b957aebbe5d (diff) | |
| download | mandoc-4c0770c1ecd159a77561d8e0364385f4bb758650.tar.gz | |
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 |