Работа со стеком (+рекурсия) [Задача]

[jihot]

Здравствуйте!

Вроде простая задачка, на входе я имею строку

M(m(1,M(2,3)),M(8,7)).

М – максимум из двух значений, m – минимум;

реализовать через стек, его я сделал :

type                            
  tStack = ^rStack;              
  rStack = object               
    N:string;
    Pred : tStack;
    procedure Push(x: string);
    function Pop: string;
  end;

но пока ломаю голову - а как доставая посимвольно из стека, решить это?
была версия с рекурсией, но тоже это лишь мысли)

[evg_m]

стек это место для хранения операндов (1,2,3,8,7), но не для операций (m, M).
посмотрите обратная польская запись

M(m(1,M(2,3)),M(8,7))
1 2 3 M m 8 7 M M это будет запись тех же действий в обратной польской
операнды (числа) помещаем на стек, если встретили операцию выполняем предписанные действия
достать два значения, сравнить и положить одно искомое(мах/мин) на сек.

З.Ы. алгоритм перевода из инфиксной (обычной) записи m(1,2) в обратную польскую [ 1 2 m ] есть в вики

[Poma][a]

А нафига тут стек? Нисходящий рекурсивный анализ и всё..

[jihot]

Нашел алгоритм перевода, не знаю может есть и попроще..но работает хорошо с обычными операциями. но вот как дать понять что Есть 'M' и 'm' ?
Как посчитать выражение теперь понял, ОПЗ действительно удобная штука, но как бы реализовать её с такими неизвестными М\m

[evg_m]

встретили символы операций 'M(' / 'm(' отправили в стек операций.
встретили операнды 1 4 8 отправили в стек операндов.
встретили символ "окончания операции" ')' выгружаем код(символ) операции из стека операций.