McCarthy 91 Function - Code

Code

Here is an implementation of the recursive algorithm in Lisp:

(defun mc91 (n) (cond ((<= n 100) (mc91 (mc91 (+ n 11)))) (t (- n 10))))

Here is an implementation of the recursive algorithm in C:

int mc91(int n) { if (n > 100) { return n - 10; } else { return mc91(mc91(n+11)); } }

Here is an implementation of the non-recursive algorithm in C:

int mccarthy(int n) { int c; for (c = 1; c != 0; ) { if (n > 100) { n = n - 10; c--; } else { n = n + 11; c++; } } return n; }

Read more about this topic:  McCarthy 91 Function

Famous quotes containing the word code:

    “Motion or change, and identity or rest, are the first and second secrets of nature: Motion and Rest. The whole code of her laws may be written on the thumbnail, or the signet of a ring.”
    —Ralph Waldo Emerson (1803–1882)

    “Hollywood keeps before its child audiences a string of glorified young heroes, everyone of whom is an unhesitating and violent Anarchist. His one answer to everything that annoys him or disparages his country or his parents or his young lady or his personal code of manly conduct is to give the offender a “sock” in the jaw.... My observation leads me to believe that it is not the virtuous people who are good at socking jaws.”
    —George Bernard Shaw (1856–1950)

    “... the self respect of individuals ought to make them demand of their leaders conformity with an agreed-upon code of ethics and moral conduct.”
    —Mary Barnett Gilson (1877–?)