Changeset 4130 for trunk/ProjectFortress/not_passing_yet
- Timestamp:
- 09/05/09 14:21:41 (3 months ago)
- Location:
- trunk/ProjectFortress/not_passing_yet
- Files:
-
- 2 modified
-
testMethodInference.fss (modified) (1 diff)
-
tree.fss (modified) (10 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ProjectFortress/not_passing_yet/testMethodInference.fss
r3550 r4130 27 27 28 28 object true extends Boolean 29 getter asString():String = "true" 29 30 apply[\T\](x:T, y:T):T = x 30 31 unary[\T\](x:T):T = x 31 asString():String = "true"32 32 end 33 33 34 34 object false extends Boolean 35 getter asString():String = "false" 35 36 apply[\T\](x:T, y:T):T = y 36 37 unary[\T\](x:T):T = x 37 asString():String = "false"38 38 end 39 39 -
trunk/ProjectFortress/not_passing_yet/tree.fss
r3550 r4130 275 275 trait Tree[\ E, nat k \] 276 276 comprises { Node[\E,k\], Leaf[\E,k\] } 277 asString():String277 getter asString():String 278 278 map[\F\](f:E->F):Tree[\F,k\] 279 279 end … … 281 281 object Node[\ E, nat k \](val : E, children : Tree[\E,k\][k]) 282 282 extends { Tree[\E,k\] } 283 asString():String = do284 s : String := "(" val.asString () ";" children[0].asString()283 getter asString():String = do 284 s : String := "(" val.asString ";" children[0].asString 285 285 for i <- seq(1#k-1) do 286 s := s "|" children[i].asString ()286 s := s "|" children[i].asString 287 287 end 288 288 (s ")") … … 305 305 object Leaf[\ E, nat k \]() extends { Tree[\E,k\] } 306 306 (* where { E, nat k } singleton only *) 307 asString():String = "."307 getter asString():String = "." 308 308 map[\F\](f:E->F):Leaf[\F,k\] = Leaf[\F,k\]() 309 309 end … … 312 312 trait LeafTree[\ E, nat k \] 313 313 comprises { LNode[\E,k\], LLeaf[\E,k\]} 314 asString():String314 getter asString():String 315 315 mapReduce[\R\](join : (R,R)->R, f : E->R) : R 316 316 mapReduce2[\R,S\](join : (R,S,R,S)->(R,S), f : E->(R,S)) : (R,S) … … 320 320 object LNode[\ E, nat k \](children : LeafTree[\E,k\][k]) 321 321 extends { LeafTree[\E,k\] } 322 asString():String = do323 s : String := "(" children[0].asString ()322 getter asString():String = do 323 s : String := "(" children[0].asString 324 324 for i <- seq(1#k-1) do 325 s := s "|" children[i].asString ()325 s := s "|" children[i].asString 326 326 end 327 327 (s ")") … … 368 368 object LLeaf[\ E, nat k \](val : E) 369 369 extends { LeafTree[\E,k\] } 370 asString():String = val.asString()370 getter asString():String = val.asString 371 371 mapReduce[\R\](join : (R,R)->R, f: E->R) : R = f(val) 372 372 mapReduce2[\R,S\](join : (R,S,R,S)->(R,S), f : E->(R,S)) : (R,S) = f(val) … … 414 414 d : Tree[\RR64[k],2\] := d_ 415 415 416 asString():String =416 getter asString():String = 417 417 ("thresh = " thresh // 418 418 "initial_level = " initial_level // 419 419 "compressed = " compressed // 420 "s = " s.asString ()//421 "d = " d.asString ())420 "s = " s.asString // 421 "d = " d.asString) 422 422 423 423 copy():Function[\k\] = … … 727 727 f : Function[\ 3 \] = function[\ 3 \](0.01,f_test,0,20) 728 728 println("f is computed") 729 println(f.c.hg.asString ())730 println(f.c.hgT.asString ())731 println(f.c.quad_x.asString ())732 println(f.c.quad_w.asString ())733 println(f.c.quad_phiT.asString ())734 println(f.c.quad_phi.asString ())735 println(f.c.quad_phiWT.asString ())736 println(f.c.r0.asString ())737 println(f.c.rm.asString ())738 println(f.c.rp.asString ())729 println(f.c.hg.asString) 730 println(f.c.hgT.asString) 731 println(f.c.quad_x.asString) 732 println(f.c.quad_w.asString) 733 println(f.c.quad_phiT.asString) 734 println(f.c.quad_phi.asString) 735 println(f.c.quad_phiWT.asString) 736 println(f.c.r0.asString) 737 println(f.c.rm.asString) 738 println(f.c.rp.asString) 739 739 f.reconstruct() 740 println(f.copy().asString ())740 println(f.copy().asString) 741 741 rt2 = SQRT 2.0 742 742 ftv = f_test(rt2-1) … … 744 744 println( ||f|| ) (* Should also match the above. *) 745 745 f.compress() 746 println(f.asString ())746 println(f.asString) 747 747 f.reconstruct() 748 println(f.asString ())748 println(f.asString) 749 749 println(f.apply(rt2-1) " ~" // ftv) 750 750 g_test(x:RR64):RR64 = 2^(-x) … … 752 752 gtv = g_test(rt2-1) 753 753 println("Here is G") 754 println(g.asString ())754 println(g.asString) 755 755 println(g.apply(rt2-1) " ~" // gtv) 756 756 println( ||g|| )

