Рекурсия

[rasals]

Помогите пожалуйста решить задачку с рекурсией:

Задача: Описать рекурсивную функцию, которая определяет наибольшее число в массиве.

[Stilet]

ок. Покажи как пробовал.

[rrrFer]

    p3([],N,N).
    p3([H|T],N,NN):-
        H>N,p3(T,H,NN).
    p3([_|T],N,NN):-
        p3(T,N,NN).

[~~~]

самое примитивное решение

#include <iostream>

using namespace std;

int max(int n, int* a)
{
        if (n == 1) return a[0];
        if (a[n - 1] > max (n - 1, a)) return a[n - 1];
        return max(n - 1, a);
}

int main()
{
        int n;
        int a[100];
        cin >> n;
        for (int i = 0; i < n; i++)
                cin >> a[i];
        cout << endl << max(n, a);
        system("pause");
        return 0;
}

[rrrFer]

~~~
Язык не был указан, мое решение для пролога
возможно чтобы не вычислять 4 раза n-1 стоит вычислить его 1 раз и сохранить где-то результат?
аналогично с вызовом функции max(...)

int max(int n, int* a)
{
		int i=n-1;
        if (!i) return a[0];
		int t=max (i, a);
		return a[i] > t?a[i]:t;
}

---------
почему то не получается выделить "~~~" жирным