version 1.3, 2004/05/13 05:33:10 |
version 1.4, 2004/08/31 04:45:42 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/tower-sugar.sm1,v 1.2 2000/04/19 08:01:32 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/tower-sugar.sm1,v 1.3 2004/05/13 05:33:10 takayama Exp $ |
%% tower-sugar.sm1, 1988, 1/21. 1/22. 1/27, 1/29 |
%% tower-sugar.sm1, 1988, 1/21. 1/22. 1/27, 1/29 |
%% based on tower.sm1 , Doc/tower-sugar.sm1 |
%% based on tower.sm1 , Doc/tower-sugar.sm1 |
%% |
%% |
Line 473 tower-sugar.verbose { |
|
Line 473 tower-sugar.verbose { |
|
/univ vars 0 get reverse |
/univ vars 0 get reverse |
vars 1 get reverse join |
vars 1 get reverse join |
def |
def |
|
w-vectors to_int /w-vectors set |
[ |
[ |
0 1 << w-vectors length 1 sub >> |
0 1 << w-vectors length 1 sub >> |
{ |
{ |