diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-13 11:43:57 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-13 11:43:57 -0400 |
| commit | 95d278b9b8e9c314541b8251a34a32fe6deeb896 (patch) | |
| tree | f0f262173a66272d9d91248844f2facc40cc65a2 /src/list_util.sml | |
| parent | 3316f3c317e587a5fc2ecf38f061a72b48e3b94e (diff) | |
Starting with closure links
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 7f87b87e..fff3e78e 100644 --- a/src/list_util.sml +++ b/src/list_util.sml @@ -29,6 +29,16 @@ structure ListUtil :> LIST_UTIL = struct structure S = Search +fun mapConcat f = + let + fun mc acc ls = + case ls of + [] => rev acc + | h :: t => mc (List.revAppend (f h, acc)) t + in + mc [] + end + fun mapfold f = let fun mf ls s = |