diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2015-03-17 11:05:29 +0800 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2015-03-17 11:05:29 +0800 |
| commit | a9ee47b61558efe09aee23f5671aabd0c3747e8a (patch) | |
| tree | 52426053545a54514d39300e2117bdda14a9b1ef /h7.hs | |
| parent | 11a5fd38018498a7b7feb0e392ac36003b0440ac (diff) | |
| download | h99-a9ee47b61558efe09aee23f5671aabd0c3747e8a.tar.gz h99-a9ee47b61558efe09aee23f5671aabd0c3747e8a.tar.bz2 h99-a9ee47b61558efe09aee23f5671aabd0c3747e8a.zip | |
p -> h
Diffstat (limited to 'h7.hs')
| -rw-r--r-- | h7.hs | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -0,0 +1,5 @@ +data NestedList a = Elem a | List [NestedList a] + +myFlatten :: NestedList a -> [a] +myFlatten (Elem x) = [x] +myFlatten (List x) = concatMap myFlatten x |