diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2007-10-22 21:13:33 +0200 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2007-10-22 21:13:33 +0200 |
| commit | ff21fcc12b47492a66684ebaec5b7b3955cb3230 (patch) | |
| tree | 146f26fc973f2e23a0dc3b9aacbba1adadcac34e | |
| parent | 341e990ca2779b440b98ce74151b16467b31f1ab (diff) | |
| download | metatile-ff21fcc12b47492a66684ebaec5b7b3955cb3230.tar metatile-ff21fcc12b47492a66684ebaec5b7b3955cb3230.zip | |
StackSet.hs: (differentiate): 'Texture' doesn't mean anything to me; replace with a more descriptive comment.
darcs-hash:20071022191333-bd4d7-e2189eb1f8c97ee294435d37f0fb0e73081c3e35
| -rw-r--r-- | StackSet.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/StackSet.hs b/StackSet.hs index 654ff5d..3b23d59 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -324,9 +324,10 @@ integrate (Stack x l r) = reverse l ++ x : r integrate' :: Maybe (Stack a) -> [a] integrate' = maybe [] integrate --- | --- /O(n)/. Texture a list. --- +-- | +-- /O(n)/. Turn a list into a possibly empty stack (i.e., a zipper): +-- the first element of the list is current, and the rest of the list +-- is down. differentiate :: [a] -> Maybe (Stack a) differentiate [] = Nothing differentiate (x:xs) = Just $ Stack x [] xs |