From e36c52e338b82695da51030927ec5f6efdb3bbc4 Mon Sep 17 00:00:00 2001
From: Jeshiba <baconp@gmail.com>
Date: Mon, 17 Jul 2017 10:21:26 -0400
Subject: cleaned up the code.

- removed useless comments
- added documentation, mainly in PitmanTransform.hs
---
 Math/Combinatorics/YoungTableaux.hs | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'Math/Combinatorics/YoungTableaux.hs')

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 =
-- 
cgit v1.2.3