Changeset 4131 for trunk/ProjectFortress/demos
- Timestamp:
- 09/06/09 05:19:15 (3 months ago)
- Location:
- trunk/ProjectFortress/demos
- Files:
-
- 4 modified
-
Lambda.fss (modified) (1 diff)
-
Syntax.fsi (modified) (1 diff)
-
Syntax.fss (modified) (1 diff)
-
aStar.fss (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ProjectFortress/demos/Lambda.fss
r4130 r4131 88 88 trait Var extends Term comprises { FreeVar, BoundVar } 89 89 getter name(): String 90 pretty(_:ZZ32): String = name()90 pretty(_:ZZ32): String = self.name 91 91 subst(v:Var, val:Term): Term = if self=v then val else self end 92 92 hasFreeVar(v:Var): Boolean = self = v -
trunk/ProjectFortress/demos/Syntax.fsi
r4130 r4131 1 1 (******************************************************************************* 2 Copyright 200 8Sun Microsystems, Inc.,2 Copyright 2009 Sun Microsystems, Inc., 3 3 4150 Network Circle, Santa Clara, California 95054, U.S.A. 4 4 All rights reserved. -
trunk/ProjectFortress/demos/Syntax.fss
r4130 r4131 1 1 (******************************************************************************* 2 Copyright 200 8Sun Microsystems, Inc.,2 Copyright 2009 Sun Microsystems, Inc., 3 3 4150 Network Circle, Santa Clara, California 95054, U.S.A. 4 4 All rights reserved. -
trunk/ProjectFortress/demos/aStar.fss
r4130 r4131 68 68 generate() method. **) 69 69 generate[\R\](r: Reduction[\R\], body: Self->R): R = 70 children().generate[\R\](r,body)70 self.children.generate[\R\](r,body) 71 71 end 72 72 … … 152 152 end 153 153 getter cost(): ZZ32 = 6 81 - 5 props - cands 154 getter isComplete(): ZZ32 = isConsistent()AND: props = 81154 getter isComplete(): ZZ32 = self.isConsistent AND: props = 81 155 155 getter longString(): String = 156 156 (BIG ||[i<-0#9] ( … … 172 172 end)) 173 173 getter children(): Generator[\Sudoku\] = 174 if isConsistent()then174 if self.isConsistent then 175 175 incons : Sudoku = Sudoku(0,props+1,state) 176 176 <| if state[iMax,jMax,k].working() then … … 352 352 getter asString(): String = 353 353 if i = 0 then "0" 354 elif i >= 10^9 then se c()"s"355 elif i >= 10^6 then ms()"ms"356 elif i >= 10^3 then us()"µs"357 else ns()"ns"354 elif i >= 10^9 then self.sec "s" 355 elif i >= 10^6 then self.ms "ms" 356 elif i >= 10^3 then self.us "µs" 357 else self.ns "ns" 358 358 end 359 359 opr +(self, other:NanoInterval): NanoInterval =

