На стеке три числа. Написать слово, оставляющее на стеке среднее из них по величине, или ничего не оставляющее, если среднего нет. Среднее число должно удовлетворять требованию: оно больше одного и меньше другого остальных чисел.
Примечание: символ _ означает здесь, что a b c убираются со стека в случае отсутствия среднего.
Например:
2 1 3 middle ( 2 )
5 2 5 middle ( _ )

Зачем писать слово с бессмысленным интерфейсом?

В чем бессмысленность? В том, что есть вариант, когда на стеке ничего не остается?
Ну для форта это не такая уж и бессмысленность.

используя стековые манипуляторы:

Ну со стековыми манипуляторами-то каждый сможет. Кстати и с ними можно и попроще:

В том, что стек по выходе может быть на разных уровнях, и непонятно, уровней удалило это слово.

В форте это не проблема. В нем можно организовать контроль заполненности стека( с помощью DEPTH).
Если изначально DEPTH дает n, а после процедуры n-2 или n-3, то понятно, что в первом случае есть среднее, а во втором - нет.
Поэтому информация не теряется, просто она передается по-другому.
Вообще одна и та же процедура может оставлять разное количество параметров на стеке в зависимости от ситуации. Само количество выходных параметров тоже может рассматриваться как параметр.
Это особенность форта. Не надо эту особенность рассматривать как недостаток.

Полслушайте хотя бы муровцев: http://www.ultratechnology.com/mfp21.htm



Учебная (и даже не учебная) задачка не должна поощрять дурной стиль программирования, я считаю.

Не дурной стиль это по вашему запретить создание процедур, которые могут выдавать разное количество параметров на выходе?
Скажем для данной задачи изменить условие так:
Если есть среднее, то выдать среднее и TRUE, если нет среднего, то выдать FALSE FALSE(на стеке всегда два параметра).
Могу только сказать, что для фортера это все и так понятно и то, что вы называете дурным, таковым не является.

тот же тупой перебор вариантов, с локальными переменными:

Раз уж высасывать примеры из пальца, то почему чисел не 117?

Для чисел в количестве больше 3-х(пусть их даже и нечетное число) определить понятие 'среднее' сложнее.

Самое близкое к среднему арифметическому или, наоборот, число превышающих равно числу превышаемых.
Какая разница, если задача абстрактная?

В этом случае могут появиться несколько 'средних', а по задаче нужно только одно. Если считать, что средних может быть только
одно, то пойдет. Но в этом случае, однако, результата можно не дождаться из-за большого времени счета.

вообще, речь в данном случае о медианном среднем значении, оно может находиться для любого количества чисел, вот только, если все числа одинаковые, не понятно, зачем его не возвращать-то?