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

SCM Repository

[smlnj] Diff of /sml/trunk/src/system/abcdef.sml
ViewVC logotype

Diff of /sml/trunk/src/system/abcdef.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 677, Mon Jun 26 00:56:56 2000 UTC revision 678, Tue Jun 27 07:51:09 2000 UTC
# Line 1  Line 1 
1  structure X = struct  structure X = struct
2        exception Foo
3      fun main n = let      fun main n = let
4          fun a (x, 0) = d x          fun a (x, 0) = d x
5            | a (x, n) = b (x, n - 1)            | a (x, n) = b (x, n - 1)
6          and b (x, n) = c (x, n)          and b (x, n) = c (x, n)
7          and c (x, n) = a (x, n)          and c (x, n) = a (x, n)
8          and d x = e (x, 3)          and d x = e (x, 3)
9                      handle Match => raise Bind
10          and e (x, 0) = f x          and e (x, 0) = f x
11            | e (x, n) = e (x, n - 1)            | e (x, n) = e (x, n - 1)
12          and f 0 = SMLofNJ.Internals.BTrace.trigger ()          and f 0 = raise Foo
13            | f n = n * g (n - 1)            | f n = n * g (n - 1)
14          and g n = a (n, 3)          and g n = a (n, 3)
15      in      in

Legend:
Removed from v.677  
changed lines
  Added in v.678

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