diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-08 10:28:32 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-08 10:28:32 -0400 |
| commit | baf22271ef6e646c97ddfa1e4193a8857816c67d (patch) | |
| tree | 1d34bf6404d3e94e6862c5fedbc4e53ed6bab883 /src/list_util.sml | |
| parent | 51fd5b1af6b2af7706c0c8604129d99e504a2d36 (diff) | |
Parametrized datatypes through explify
Diffstat (limited to 'src/list_util.sml')
| -rw-r--r-- | src/list_util.sml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/list_util.sml b/src/list_util.sml index 976e4708..616efcf0 100644 --- a/src/list_util.sml +++ b/src/list_util.sml @@ -146,4 +146,14 @@ fun mapi f = m 0 [] end +fun foldli f = + let + fun m i acc ls = + case ls of + [] => acc + | h :: t => m (i + 1) (f (i, h, acc)) t + in + m 0 + end + end |