Return to semant.sml CVS log

Up to [Research Unix] / researchv10dc / cmd / sml / doc / examples / spread

Annotation of researchv10dc/cmd/sml/doc/examples/spread/semant.sml, revision 1.1

1.1     ! root        1: structure Semant : FORMULA =
        !             2: struct
        !             3:      type formula = int array array -> int
        !             4:      fun NUM i = fn a => i
        !             5:      fun CELLREF (e1,e2) = fn a => a sub e1 a sub e2 a
        !             6:      fun BINOP (f,e1,e2) = fn a => f(e1 a, e2 a)
        !             7:      fun IF (e1,e2,e3) = fn a => if e1 a <> 0 then e2 a else e3 a
        !             8:      val eval = fn x => x
        !             9: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.