X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMisc.hs;h=34c682e31a7609e590898311885ea397fed1f6c4;hb=30bc407abc86ffa9a0eb4b26bdb4890f3ea423d1;hp=48482b4f69a2cfe580b8b34a605beae82565168b;hpb=effb6b9a8716ce58fed6c8260c57164601a7df30;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