Changeset 4128 for trunk/ProjectFortress/LibraryBuiltin
- Timestamp:
- 09/04/09 12:18:45 (3 months ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
trunk/ProjectFortress/LibraryBuiltin/CompilerBuiltin.fss
r4118 r4128 113 113 opr ^(self, other:RR64): RR64 = jDoublePow(self,other) 114 114 opr ^(self, other:ZZ32): RR64 = 115 if other > 0then115 if other > 2 then 116 116 mid = other DIV 2 117 117 if (mid + mid) = other then 118 (self self)^mid 118 self2 = self self 119 (self2)^mid 119 120 else 120 self (self^( mid-1))121 self (self^(other-1)) 121 122 end 123 elif other = 2 then self self 124 elif other = 1 then self 122 125 elif other = 0 then 1.0 123 else 1.0 / (self^(-other))126 else (* other < 0 then *) 1.0 / (self^(-other)) 124 127 end 125 128 end

