Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/benchmarks/programs/nucleic/main.sml
ViewVC logotype

Annotation of /sml/trunk/benchmarks/programs/nucleic/main.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 193 - (view) (download)

1 : monnier 193 (* main.sml
2 :     *
3 :     * COPYRIGHT (c) 1996 AT&T Research.
4 :     *)
5 :    
6 :     structure Main : BMARK =
7 :     struct
8 :     val name = "Nucleic"
9 :     fun doit () = (Nucleic.anticodon_length (); ())
10 :     fun testit strm = TextIO.output(strm, concat[
11 :     Int.toString (Nucleic.anticodon_length ()), "\n"
12 :     ])
13 :     end;
14 :    

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0