Changeset 4173c7 in git for Singular/LIB/general.lib
- Timestamp:
- May 4, 2011, 3:11:46 PM (12 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
- Children:
- 85ba0aaf4c7c467f1fa0dbf0a8b22f8cc10cf672
- Parents:
- c8a1b262104ff4f22a15159b4777248922f0178f
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/general.lib
rc8a1b2 r4173c7 787 787 static proc lsum (int n, list l) 788 788 { if (n>10) 789 { return( lsum(n /2,list(l[1..(n/2)])) + lsum(n-n/2, list(l[(n/2+1)..n])) );789 { return( lsum(n div 2,list(l[1..(n div 2)])) + lsum(n-n div 2, list(l[(n div 2+1)..n])) ); 790 790 } 791 791 else … … 878 878 n = size(id); 879 879 if (n>10) 880 { return( lsum(n /2,list(id[1..(n/2)])) + lsum(n-n/2, list(id[(n/2+1)..n])) );880 { return( lsum(n div 2,list(id[1..(n div 2)])) + lsum(n-n div 2, list(id[(n div 2+1)..n])) ); 881 881 } 882 882 else
Note: See TracChangeset
for help on using the changeset viewer.