я его чуть порезал... ;)

Sergey M. 03.03.2005 15:51

@CLASS
dec

@create[data]
^if(def $data){
	$dec[$.1[$data]]
}{
	$dec[^hash::create[]]
}

@push[data]
^if(def $data){
	^dec.add[$.[^eval($dec+1)][$data]]
}

@pop[]
^if($dec){
	$result[$dec.[^dec._count[]]]
	^dec.delete[^dec._count[]]
}

@empty[]
$result(!$dec)