diff options
Diffstat (limited to 'tests/etc/ack.rc')
-rw-r--r-- | tests/etc/ack.rc | 50 |
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 */ |