aboutsummaryrefslogtreecommitdiff
path: root/tests/etc/ack.rc
diff options
context:
space:
mode:
Diffstat (limited to 'tests/etc/ack.rc')
-rw-r--r--tests/etc/ack.rc50
1 files changed, 25 insertions, 25 deletions
diff --git a/tests/etc/ack.rc b/tests/etc/ack.rc
index 6a3f76c4..66c1a6c8 100644
--- a/tests/etc/ack.rc
+++ b/tests/etc/ack.rc
@@ -1,20 +1,20 @@
-# This file is part of Mailfromd
-# Copyright (C) 2006, 2007 Sergey Poznyakoff
-#
-# Mailfromd is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# Mailfromd is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with Mailfromd; if not, write to the Free Software Foundation,
-# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-#
+/* This file is part of Mailfromd -*- mfl -*-
+ Copyright (C) 2006, 2007 Sergey Poznyakoff
+
+ Mailfromd is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ Mailfromd is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with Mailfromd; if not, write to the Free Software Foundation,
+ Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA */
+
/* This test computes the value of Ackerman function ack(3,8), which
requires 2785999 calls of ack(). Maximum recursion depth is 2047,
@@ -25,18 +25,18 @@
func ack(number, number) returns number
do
- if $1 = 0
- return $2+1
- fi
- if $2 = 0
- return ack($1-1,1)
- fi
- return ack($1-1, ack($1,$2-1))
+ if $1 = 0
+ return $2+1
+ fi
+ if $2 = 0
+ return ack($1-1,1)
+ fi
+ return ack($1-1, ack($1,$2-1))
done
prog envfrom
do
- echo "ack(3,8)=" ack(3,8)
+ echo "ack(3,8)=" ack(3,8)
done
/* End of ack.rc */

Return to:

Send suggestions and report system problems to the System administrator.