diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-02 14:40:57 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-02 14:40:57 -0400 |
| commit | 2a572eeba9d521400872e6588b3f709818a5d412 (patch) | |
| tree | 2b719447badc70a7b852f0091f68fad273d9e9c5 /src/list_util.sml | |
| parent | 3b770e100b11cbcfc19af6f810962975e9221d9f (diff) | |
Validating schema of a live database
Diffstat (limited to 'src/list_util.sml')
| -rw-r--r-- | src/list_util.sml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/list_util.sml b/src/list_util.sml index 616efcf0..f9826ab4 100644 --- a/src/list_util.sml +++ b/src/list_util.sml @@ -156,4 +156,11 @@ fun foldli f = m 0 end +fun foldri f i ls = + let + val len = length ls + in + foldli (fn (n, x, s) => f (len - n - 1, x, s)) i (rev ls) + end + end |