cleaned up the code.

- removed useless comments
- added documentation, mainly in PitmanTransform.hs

1 files changed, 0 insertions, 3 deletions

diff --git a/Math/Combinatorics/YoungTableaux.hs b/Math/Combinatorics/YoungTableaux.hs
index 683519f..357927c 100644
--- a/Math/Combinatorics/YoungTableaux.hs
+++ b/Math/Combinatorics/YoungTableaux.hs
@@ -73,9 +73,6 @@ reduceWord'' :: Ord a => [a] -> [a]
 reduceWord'' xs
   | length xs <= 2 = xs
   | otherwise      = let ys = reduceWord'' $ init xs in reduceWord' (init $ init ys) (last $ init ys, last ys, last xs) []
-  {-- | otherwise      = let ys = reduceWord $ init xs in 
-                     let (zs, ws) = splitAt (length ys - 2) ys in
-                       reduceWord'' zs (ws ++ [last xs]) --}
 
 reduceWord' :: Ord a => [a] -> (a, a, a) -> [a] -> [a]
 reduceWord' [] (u, v, w) ys =