X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMisc.hs;h=34c682e31a7609e590898311885ea397fed1f6c4;hb=26f0a2204a0bdb41b1d6aa5430544c404b77e638;hp=48482b4f69a2cfe580b8b34a605beae82565168b;hpb=4383f675429378faa35e5c6f8081f0d344a8e526;p=spline3.git diff --git a/src/Misc.hs b/src/Misc.hs index 48482b4..34c682e 100644 --- a/src/Misc.hs +++ b/src/Misc.hs @@ -25,6 +25,12 @@ factorial n -- | Takes a three-dimensional list, and flattens it into a -- one-dimensional one. +-- +-- Examples: +-- +-- >>> flatten [ [[1,2], [3,4]], [[5,6], [7,8]] ] +-- [1,2,3,4,5,6,7,8] +-- flatten :: [[[a]]] -> [a] flatten xs = concat $ concat xs