SCM Repository
[smlnj] / tests / trunk / bugs / tests.obsolete / bug1570.1.sml |
View of /tests/trunk/bugs/tests.obsolete/bug1570.1.sml
Parent Directory | Revision Log
Revision 2460 -
(download)
(annotate)
Sat Apr 28 20:18:10 2007 UTC (12 years, 2 months ago) by gkuan
File size: 341 byte(s)
Sat Apr 28 20:18:10 2007 UTC (12 years, 2 months ago) by gkuan
File size: 341 byte(s)
(* bug1570.1.sml *) structure X = struct fun main n = let fun a (x, 0) = d x | a (x, n) = b (x, n - 1) and b (x, n) = c (x, n) and c (x, n) = a (x, n) and d x = e (x, 3) and e (x, 0) = f x | e (x, n) = e (x, n - 1) and f 0 = 1 | f n = n * g (n - 1) and g n = a (n, 3) in f n end end
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |