LИSP

SMAГГTAГK

БЕЗНОГNМ

СТЕК ВОЗВ

: TopGoesDown ( m -- m )
	>R 0 DUP				BEGIN		( i i.old ) ( R: m )
	DROP DUP leftrightbelow DUP R@ <      WHILE	( i i.lb i.rb )
	chooseMAX SWAP					( i.b i )
	[min]exch[MAX]n?		UNTIL ELSE
	R@ =				IF		( i i.lb )
	SWAP [min]exch[MAX]n? DROP	THEN  THEN	( i.lb i )
	2DROP R>
;
: SortPyr ( -- )
	PyrN ( m0)
	PyrN 1 DO  ( m) 1- ( m) 0 []exch[] DROP ( m) TopGoesDown ( m) LOOP
	DROP
;
\ --- the main word ---

: HeapSort ( -- ) \ Uses: []<[] []exch[] PyrN
	PyrN 1 > IF  ConstrPyr SortPyr  THEN
;

http://openpaste.org/en/16190/
http://www.kodges.ru/15544-programmirovanie-na-jazyke-prolog-dlja.html

каталог-кун
читал ету книжку в детстве

>>3693
также хочу добавить что лисперы дебилы и быдляки
как и авторы их учебников