tag:blogger.com,1999:blog-84081781102148902252012-02-16T05:57:00.667-08:00snoreply@blogger.comBlogger11100tag:blogger.com,1999:blog-8408178110214890225.post-37318911014302098672007-12-16T00:53:00.000-08:002007-12-16T00:54:28.662-08:00

decl f:Ref(Fun(Int, Int)) = var(fun z:Int (Int) => 0 end) t:Ref(Int) = var(0) in while(!t < 40) do f := if((!t % 2) = 0) then fun x:Int (Int) => x + 1 end else fun x:Int (Int) => x + 3 end end ; t := (!f)(!t) ; print(!t);println() endend;;language for nerds, stuff that (doesn't) matter

snoreply@blogger.com1