File: ack.c

package info (click to toggle)
cflow 1%3A1.8-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 6,252 kB
  • sloc: sh: 9,697; ansic: 9,203; lex: 466; lisp: 271; makefile: 185; awk: 87; sed: 16
file content (14 lines) | stat: -rw-r--r-- 208 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
/* Ackermann's function */

typedef unsigned long u_long;

u_long
ack (u_long a, u_long b) 
{
  if (a == 0)
    return b + 1;
  if (b == 0)
    return ack (a - 1, 1);
  return ack (a - 1, ack (a, b - 1));
}